Предмет: Информатика, автор: youngerrhvhvhv

Требуется написать программу, которая для массива состоящего из n целочисленных элементов заданных случайным образом, определяет количество элементов меньших 60, но больших 10.
!!!!!!!!!!!!(PASCAL ABC)!!!!!!!!!!!!
ПИШИТЕ ПОЖАЙЛУЙСТА ЧТО ЗА ЧТО ОТВЕЧАЕТ СРОЧНО!!!


Maxuch: с++?
youngerrhvhvhv: 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.

Похожие вопросы
Предмет: Биология, автор: TataSkate