Question

Ответьте как можно быстрее пожалуйста;)


Напишите алгоритм программы, с формированием одномерного массива А данных состоящего из 10 целочисленных элементов в интервале от -10 до 10 и массива, B который будет заполнен индексами четных элементов массива А.​

Answer 1

Ответ:

var arr: array[1..10] of integer;   

i:integer;   

crat:integer;   

id:integer;       

begin   

for i:=1 to 10 do   

begin   

read(arr[i]);   

crat:=arr[i] mod 3;   

if(crat = 0) then   

begin   

id:=arr[i];    

if(arr[i] = id) then writeln('Id = ', i:2);   

end;   

end;   

end.