Дан массив из 20 элементов, состоящий из целых - вопрос №2020907370 от zohvav 08.06.2020 07:27

Question

Информатика: Дан массив из 20 элементов, состоящий из целых случайных чисел. Числа находятся в интервале (-15, 1]. Выполните задание: Выведите на экран в столбец такой массив, затем, найдите количество элементов этого массива, равных 0.

zohvav · Answer

var a:array [1..20] of integer; i,k:integer;begin randomize; k:=0; for i:=1 to 20 dobegina[i]:=random(16)-14; writeln(a[i]); if a[i]=0 then k:=k+1end; write(k) end....