Предмет:
ИнформатикаАвтор:
faustodunnvar i : integer;
a : string;
b :array [1..16] of integer;
begin
a :='';
Randomize;
for i:= 1 to 16 do
begin
b[i]:= Random(-20,20);
if b[i] mod 2 = 0 then a:=a+ i + ' ';
end;
Writeln(a);
end.
Автор:
segismundo0pqcДобавить свой ответ
Предмет:
БиологияАвтор:
christopher3xkeОтветов:
Смотреть
Предмет:
ФизикаАвтор:
coltwilkinsОтветов:
Смотреть
Предмет:
ОбществознаниеАвтор:
heraclioОтветов:
Смотреть