7класс var a, b, c, d, a1, b1, c1, max: integer; begin readln (a, b, c); d: =(max(max(a, b), c)); ошибка - id832348320220117 от butkovskaal 17.01.2022 01:00

Question

Информатика: 7класс var a, b, c, d, a1, b1, c1, max: integer; begin readln (a, b, c); d: =(max(max(a, b), c)); ошибка : ожидалось имя процедуры или функции a1: =d-a; b1: =d-b; c1: =d-c; write (a1, ); write (b1, ); write (c1); end.

butkovskaal · Accepted Answer

Uses crt;
const n=10;
var a:array [1..n] of integer;
i,p,o: integer;
begin
p:=0;
o:=0;
for i:=1 to n do
begin
a[i]:=random(27)-10;
write(a[i],' ');
if a[i]>0 then inc(p);
if a[i]<0 then inc(o);
end;
writeln;
writeln('положительных:',p); p:=0;
writeln('отрицательных:',o); o:=0;
for i:=1 to n do
begin
a[i]:=-a[i];
write(a[i],' ');
if a[i]>0 then inc(p);
if a[i]<0 then inc(o);
end;
writeln;
writeln('положительных:',p);
writeln('отрицательных:',o);
end.

7класс var a, b, c, d, a1, b1, c1, max: integer; begin readln (a, b, c); d: =(max(max(a, b), c)); ошибка : ожидалось имя процедуры или функции a1: =d-a; b1: =d-b; c1: =d-c; write (a1,' '); write (b1,' '); write (c1); end.

MOGZ ответил