1. Заполнить массив из 20 элементами цифрами от 1 до 20. Вывести его элементы в обратном порядке.
2. Заполнить массив из 10 элементов нечетными числам (команду read не использовать). Вывести массив на экран в строку
3. Заполните массив из 10 элементов случайными числами в интервале от 0 до 100 и подсчитайте отдельно среднее значение всех элементов, которые <50, и среднее значение всех элементов, которые ≥50.
4. Дан целочисленный массив размера 10. Вывести все содержащиеся в данном массиве нечетные числа в порядке возрастания их индексов, а также их количество K.
5. Дан целочисленный массив размера 10. Вывести все содержащиеся в данном массиве четные числа в порядке убывания их индексов, а также их количество K.
Ответы на вопрос
1.
var
a:array [1..20] of integer;
i:integer;
begin
randomize;
for i:=1 to 20 do
begin
a[i]:=random(20)+1;
write(a[i]:4);
end;
writeln;
for i:=20 downto 1 do
write(a[i]:4);
end.
2.
var
a: array [1..10] of integer;
i,j:integer;
begin
randomize;
i:=1; j:=1;
while j<=10 do
begin
a[j]:=i;
i:=i+2;
write(a[j]:4);
inc(j);
end;
end.
3.
var
a:array [1..10] of integer;
min,max,mini,maxi,i:integer;
begin
randomize;
min:=0; max:=0; mini:=0; maxi:=0;
for i:=1 to 10 do
begin
a[i]:=random(100)+1;
write(a[i]:4);
if a[i]<50 then
begin
min:=min+a[i];
inc(mini);
end
else if a[i]=50 then
begin
min:=min+a[i];
inc(mini);
max:=max+a[i];
inc(maxi);
end
else if a[i]>50 then
begin
max:=max+a[i];
inc(maxi);
end
end;
writeln;
writeln('<=50: ', min/mini);
writeln('>=50: ', max/maxi);
end.
4.
var
a:array [1..10] of integer;
i,count:integer;
begin
for i:=1 to 10 do
begin
a[i]:=random(100);
write(a[i]:4);
end;
count:=0;
writeln;
for i:=1 to 10 do
if a[i] mod 2 = 1 then
begin
inc(count);
write(a[i]:4);
end;
writeln;
writeln('Count: ',count);
end.
5.
var
a:array [1..10] of integer;
i,count:integer;
begin
for i:=1 to 10 do
begin
a[i]:=random(100);
write(a[i]:4);
end;
count:=0;
writeln;
for i:=10 downto 1 do
if a[i] mod 2 = 0 then
begin
inc(count);
write(a[i]:4);
end;
writeln;
writeln('Count: ',count);
end.