Предмет: Информатика,
автор: youngerrhvhvhv
Требуется написать программу, которая для массива состоящего из n целочисленных элементов заданных случайным образом, определяет количество элементов меньших 60, но больших 10.
!!!!!!!!!!!!(PASCAL ABC)!!!!!!!!!!!!
ПИШИТЕ ПОЖАЙЛУЙСТА ЧТО ЗА ЧТО ОТВЕЧАЕТ СРОЧНО!!!
Maxuch:
с++?
Ответы
Автор ответа:
1
const n = 10; //объявляем константу, можно менять число на любое другое
var A: array[1..n] of integer; // объявляем массив из n элементов
var k: integer; // объявляем перменную-счетчик
begin
k := 0;
for var i:= 1 to n do begin
A[i] := random(101); // присваиваем рандомное значение от 0 до 100
write (A[i], ' '); //выводим массив, можно убрать эту команду
if (A[i] > 10) and (A[i] < 60) then // проверяет условия
k := k + 1; // если выполняются оба условия, увеличивает счетчик на 1
end;
writeln; // переход на новую строку для красоты
write('Кол-во элементов больше 10, но меньше 60: ', k); // выводит кол-во элементов
end.
Похожие вопросы
Предмет: Русский язык,
автор: anytabailova
Предмет: Русский язык,
автор: nnagarkov
Предмет: Английский язык,
автор: Арина1694
Предмет: Биология,
автор: TataSkate