Регистрация
Леся059
13.06.2022 10:08
Информатика
Есть ответ 👍

В тетради создайте таблицу 
 

Системное ПО
Прикладное ПО
Языки программирования

 

Excel, Turbo Pascal, базы данных, Windows, Word, Borland Delphi, командная строка, Paint, MacOS, SketchUp

​

279
323
Посмотреть ответы 1

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

zverok21rus
zverok21rus
4,8(34 оценок)
Var   m : array[1..10] of integer;   i,s,p,n : integer; begin   s: =0; p: =1; n: =0;   for i: =1 to 10 do   begin     m[i]: =-100+random(201);     inc(n,ord(m[i]=0));     if m[i]> 0 then s: =s+m[i];     if m[i]< 0 then p: =p*m[i];   end;   writeln(s,' ',p,' ',n); end.

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