<span>а:= а - в
20 символов ( . ) ( . )
</span>
Var a:array[1..100] of integer;
i,s:integer;
begin
for i:=1 to 8 do begin
a[i]:=random(11)-0;
write(a[i]:4);
end;
s:=0;
for i:=1 to 8 do begin
if a[i] mod 2<>0 then
s:=s+1;
end;
writeln;
writeln(s);
end.
10
Для таких задач пользуйтесь онлайн-калькуляторами.
1. var z:array[1..8,1..5] of real;
2. n[i,k]:=random(90)-62;