Помогите, пожалуйста 1) Запишите программу решения задачи; 2) Наберите программу **...

Question

Помогите, пожалуйста 1) Запишите программу решения задачи; 2) Наберите программу на компьютере в среде АВСПаскаль; 3) Запустите программу на выполнение и запишите результат работы программы. Задан одномерный массив В(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.

Answer 1

Объяснение:

Начало

• S:=0;

Присваиваем переменной s значение 0.

• for i := 1 to 10 do
• begin
• Write('Введите ', i, '-й элемент массива ');
• Readln(B[i]);
• end;

Цикл для i от 1 до 10 (пробегаемся по массиву): выводим сообщение о том, какой по очереди элемент нужно ввести и считываем его значение с клавиатуры.

• Write('Введите число k ');
• Readln(k);

Выводим сообщение о том, что нужно ввести число k и считываем его значение с клавиатуры.

• For i:=1 to 10 do
• If b[i]>k then s:=s+1;

Пробегаемся по массиву и смотрим: если какой-то элемент больше чем k, то увеличиваем s на 1.

• Write(‘Количество элементов’, s);

Выводим на экран значение s.

Конец.

---

---