Ответьте как можно быстрее пожалуйста;)
Напишите алгоритм программы, с формированием одномерного массива А данных состоящего из 10 целочисленных элементов в интервале от -10 до 10 и массива, B который будет заполнен индексами четных элементов массива А.
Напишите алгоритм программы, с формированием одномерного массива А данных состоящего из 10 целочисленных элементов в интервале от -10 до 10 и массива, B который будет заполнен индексами четных элементов массива А.
Answers & Comments
Ответ:
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.