Написать программу, которая заполняет массив А[1..50] - вопрос №15011210645 от margaritrw 09.12.2020 20:10

Question

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

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