Запишите программу решения задачи;
2) Наберите программу на компьютере в среде АВ Запустите программу на выполнение и запишите результат работы программы.
Задан одномерный массив В(10), заполненный произвольным образом. Подсчитать количество элементов массива, больших заданного числа k.
Program massiv;
Uses crt;
Var b:array [1..10] of integer;
I, k, s : integer;
Begin
S:=0;
For i:=1 to 10 do
Begin
Write(‘Введите’, i, ‘-й элемент массива ’);
Readln (B[i]);
End;
Write(‘Введите число k’);
Readln(k);
For i:=1 to 10 do
If b[i]>k then s:=s+1;
Write(‘Количество элементов’, s);
End.

mineroma50Romaaa    3   27.05.2020 12:36    1