Сформулировать массив,поставив на четные места 1,а нечтные 0.

ilya3694444 ilya3694444    3   25.05.2019 18:20    0

Ответы
MrLux123 MrLux123  22.06.2020 00:24
Uses crt;
const n=10;
var a:array [1..n] of integer;
i: integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(100);
writeln(a[i]);
end;
writeln;
for i:=1 to n do
if (a[i] mod 2=0) then a[i]:=1 else a[i]:=0;
for i:=1 to n do writeln(a[i]);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика