Регистрация
nail4iklatyopo
02.11.2022 19:39
Информатика
Есть ответ 👍

Информатика в Pascal вычислить заданий

130
367
Посмотреть ответы 1

Ответы на вопрос:

Privet206
Privet206
4,5(59 оценок)
Var   i: integer;   a: array [1..16] of integer; begin   randomize;   writeln('массив: ');   for i : = 1 to 16 do   begin     a[i] : = random(41) - 20;     write(a[i]: 5);   end;   writeln;   writeln('нулевые элементы: ');   for i : = 1 to 16 do     if a[i] = 0 then write(i: 5);   writeln;   writeln('четные элементы: ');   for i : = 1 to 16 do     if a[i] mod 2 = 0 then write(i: 5); end.

Популярно: Информатика