Написать программу заполнения массива случайными числами из диапазона от -20 до 20 и вывода порядковых номеров четных чисел
Answers & Comments
vladmor
Var a:array of integer; i,n:integer; begin //Заполняем массив сл. числами и выводим //Нумерация массива с 0 write('Число элементов массива ');readln(n); setlength(a,n); for i:=0 to n-1 do begin a[i]:=random(41)-20; write(a[i]:4); end; writeln; //Вывод номеров четных элементов for i:=0 to n-1 do if a[i] mod 2 = 0 then writeln(a[i]:4, ' номер: ',i ); end.
Answers & Comments
i,n:integer;
begin
//Заполняем массив сл. числами и выводим
//Нумерация массива с 0
write('Число элементов массива ');readln(n);
setlength(a,n);
for i:=0 to n-1 do begin
a[i]:=random(41)-20;
write(a[i]:4);
end;
writeln;
//Вывод номеров четных элементов
for i:=0 to n-1 do
if a[i] mod 2 = 0 then writeln(a[i]:4, ' номер: ',i );
end.
Тестовое решение:
Число элементов массива 10
-5 14 3 13 4 1 18 7 12 -14
14 номер: 1
4 номер: 4
18 номер: 6
12 номер: 8
-14 номер: 9