Написать программу, которая заполняет массив А[1..50] - вопрос №11210245150 от Марина11133 17.03.2020 04:27

Question

Информатика: Написать программу, которая заполняет массив А[1..50] случайными числами из диапазона (-30, 30), подсчитывает сколько раз встречается число 0.

Марина11133 · Answer

var s, i: integer;a:array[1..50] of integer;beginfor i:=1 to 50 dobegina[i]:=30-random(61);write(a[i], );end;for i:=1 to 50 dos:=0;beginif a[i]=0 thens:=s+1end;writeln( Нулей в массиве = , s);end....