Регистрация
polina686
30.06.2023 02:47
Информатика
Есть ответ 👍

Pascal. Вычислить количество элементов массива, равных 5. Если таких чисел нет, то вывести сообщение об этом

192
467
Посмотреть ответы 2

Ответы на вопрос:

123456123свет23415а
123456123свет23415а
4,7(99 оценок)

var a:array [1..10] of integer;

   i, count:integer;

begin

 count:=0;

 for i:=1 to 10 do begin

   a[i]:=random(10);

   if a[i] = 5 then count:=count + 1;

 end;

 write('Элементов массива равных пяти: ', count);

end.

zahidamamirova
zahidamamirova
4,7(85 оценок)

Закрашенных Фигур - 2 / Два

Популярно: Информатика