Составить массив из 10 целых чисел и подсчитать количество элементов массива,значения которых не превышают 3.

287

416

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

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

kostenkoelizav

Информатика

4,4(8 оценок)

Const vt_max=10; var i: byte; sum: integer; vt: array[1..vt_max]of integer; begin sum: =0; writeln('начальный массив случайных чисел'); for i: =1 to vt_max do begin vt[i]: =random(0,12); write(vt[i]: 6); if (vt[i]< =3) then sum: =sum+vt[i]; end; writeln(''); writeln('сумма элементов не больше 3 равна ', sum); end.