Question

ПОЖАЛУЙСТА ПОМОГИТЕ срочно!!!

В одномерном массиве рассчитайте сумму элементов, которые равняются 6 n = 100 (количество

элементов в массиве), значения элементов массива задаются с помощью оператора random.

Массив также вывести на экран

Answer 1

Ответ:

program arrrrr;

Const n=100;

Var m,b,c: integer;

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

Begin

randomize;

c:=0;

For m:=1 to n do

Begin

a[m]:= random (100);

write(' ',a[m]);

end;

for b:=1 to n do

if a[b]=6 then c:=c+1;

write(' сумма 6=',c);

end.

Объяснение:

Вроде так