Написать программу, которая заполняет массив А[1..50] - вопрос №150311210470 от maksim22771 15.02.2021 13:23

Question

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

maksim22771 · 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....