Дан массив из 200 элементов. В массиве записан рост учеников. Найти количество человек рост которых выше 180 см. Язык паскаль

Question

Информатика

Фрол

21 апреля, 01:03

Дан массив из 200 элементов. В массиве записан рост учеников. Найти количество человек рост которых выше 180 см. Язык паскаль

+1

Ответы (1)

Знаете ответ на вопрос?

Митрюха · Answer 1

Const

N = 200;

Var

A:array[1 ... N] of integer;

i, k:integer;

Begin

Randomize;

Write ('Исходный массив:') ;

k:=0;

For i: = 1 to N do

Begin

A[i]:=random (101) + 150;

Write (' ', A[i]) ;

if A[i] > 180 then k:=k+1;

End;

WriteLn;

WriteLn ('k = ', k) ;

ReadLn

End.