Составьте массив a от 1 до 100 с помощью генератора случайных чисел с элементами от - 7 до 7. выведите на экран, подсчитайте количество чисел равных 5

Question

Информатика

Мара

2 октября, 10:16

Составьте массив a от 1 до 100 с помощью генератора случайных чисел с элементами от - 7 до 7. выведите на экран, подсчитайте количество чисел равных 5

+1

Ответы (1)

Знаете ответ?

Африкан · Answer 1

Var i, k: integer;

a:array[1 ... 100] of integer;

begin

k:=0;

for i : = 1 to 100 do

begin

a[i]:=random (15) - 7;

writeln (a[i]) ;

end;

for i : = 1 to 100 do

if a[i]=5 then inc (k) ;

writeln (k) ;

readln

end.