Предмет: Информатика,
автор: alinadovna
Помогите, пожалуйста
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.
Ответы
Автор ответа:
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.
Конец.
Приложения:


Похожие вопросы
Предмет: Русский язык,
автор: Meow280
Предмет: Английский язык,
автор: dexizer77
Предмет: Английский язык,
автор: nadezhdashesta
Предмет: ОБЖ,
автор: JustStupidMan
Предмет: География,
автор: irinasolovje2