Регистрация
Qwerty555777999
25.03.2023 04:43
Информатика
Есть ответ 👍

Величина х-положительная величина х-отрицательная запись на языке паскаль

236
240
Посмотреть ответы 2

Ответы на вопрос:

kamilusmonov
kamilusmonov
4,4(25 оценок)
Var a: integer; begin read(a); if (a> =0) then write('+') else write('-'); end.
kuchakshoevaZ
kuchakshoevaZ
4,4(64 оценок)

var a: array [1..10] of integer;

var i,s: integer;

begin

randomize();

for i:=1 to 10 do

 begin

 a[i]:=random(10);

 write(a[i],' ');

 end;

writeln();

for i:=1 to 8 do

 begin

 s:=a[i]+a[i+1]+a[i+2];

 writeln('a[',i,']+a[',i+1,']+a[',i+2,'] = ',s);

 end;

end.

Популярно: Информатика