Задача на масивМаленький онучок вирішив "допомогти" бабусі підстригти квіти у її квітнику. На щастя, кмітливий хлопчик зрізав лише ті квіти, які були заввишки від h1 до h2 см від землі. Скільки квіточок було підстрижено, якщо ї...
Задача на масив
Маленький онучок вирішив "допомогти" бабусі підстригти квіти у її квітнику. На щастя, кмітливий хлопчик зрізав лише ті квіти, які були заввишки від h1 до h2 см від землі. Скільки квіточок було підстрижено, якщо їх висота у сантиметрах становить а1, а2, ... , а n . (Ввести висоту квіточок у вигляді масиву чисел, а також константи h1 та h2).
Гость
Ответ(ы) на вопрос:
Гостьuses Crt;
const m=1000;
type Mas=array [1..m] of integer;
var n, i, h1, h2, Col: integer;
A: Mas;
begin
ClrScr;
Randomize;
Write ('n = '); ReadLn (n);
Write ('h1 = '); ReadLn (h1);
Write ('h2 = '); ReadLn (h2);
Col:=0;
Writeln ('Massiv:');
for i:=1 to n do
begin
A[i]:=1+random (100);
Write (A[i]:4);
if (A[i]>=h1) and (A[i]<=h2) then Col:=Col+1;
end;
WriteLn;
WriteLn('Col = ', Col);
ReadLn;
end.
Не нашли ответ?
Похожие вопросы