Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.
Новые вопросы по предмету Информатика:
var
a:array[1..20]of integer;
i,n,c:integer;
begin
for i:=1 to 20 do
begin
a[i]:=random(19)-9;
write(a[i],' ');
if i mod 2 =1 then
if a[i]=-5 then
c:=c+1;
end;
writeln;
writeln(c);
end.