Pascalabc. объединить 3 программы. 1. program ssee; var a: array [1..20] of integer; i, k: integer; begin for i: = 1 to 20 do a[i]: = random(51)-25; k: = 0; for i: = 1 to 20 do if a[i]< 0 then k: =k+1; writeln('кол-во отриц.эл.: ', k); for i: = 1 to 20 do write( a[i]: 4); end. 2. program fd; var a: array [1..20] of integer; i: integer; begin for i: = 1 to 20 do a[i]: = random (51)-25; for i: =1 to 20 do if a[i] mod 3=0 then writeln ('найден эл. a[', i, ']= '); for i: =1 to 20 do write(a[i]: 4); end. 3. program fd; var a: array [1..20] of integer; i: integer; begin for i: = 1 to 20 do a[i]: = random (51)-25; for i: =1 to 20 do if a[i] mod 3=0 then writeln ('найден эл. a[', i, ']= '); for i: =1 to 20 do write(a[i]: 4); end.

200

487

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

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

kroylayshic

Информатика

4,5(89 оценок)

program ssee;

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

i, k: integer;

begin

for i: = 1 to 20 do a[i]: = random(51)-25;

k: = 0;

for i: = 1 to 20 do

if a[i]< 0 then k: =k+1;

writeln('кол-во отриц.эл.: ', k);

for i: =1 to 20 do

if a[i] mod 3=0 then writeln ('найден эл. a[', i, ']= ');

for i: =1 to 20 do write(a[i]: 4);

end.

amir1290

Информатика

4,6(64 оценок)

целые числа - int. с плавающей точкой - float.

Объяснение:

Задай свой вопрос

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.