Даны натуральное число n и целые числа a1, a2, ..., an. Выяснить, верно ли, что количество отрицательных чисел ai превышает x.
Цикл с параметром

Question

Информатика: Даны натуральное число n и целые числа a1, a2, ..., an. Выяснить, верно ли, что количество отрицательных чисел ai превышает x. Цикл с параметром

3344227p06s57 · Accepted Answer

//прога на Pascal`e
type
myrec = record
rost : byte;
ves : byte;
end;
var
mas : array of myrec;
n, i : byte;
sumves, sumrost : longint;
begin
write ('Введите кол-во учеников: ');
readln (n);
setLength (mas, n);
for i:=0 to n-1 do
begin
write ('Введите вес ', i+1, '-го ученика: ');
readln (mas[i].ves);
inc (sumves, mas[i].ves);
write ('Введите рост ', i+1, '-го ученика: ');
readln (mas[i].rost);
inc (sumrost, mas[i].rost);
end;

write ('Средний вес учеников: ', sumves / n, '; Средний рост: ', sumrost / n)
end.

Даны натуральное число n и целые числа a1, a2, ..., an. Выяснить, верно ли, что количество отрицательных чисел ai превышает x. Цикл с параметром

MOGZ ответил

Даны натуральное число n и целые числа a1, a2, ..., an. Выяснить, верно ли, что количество отрицательных чисел ai превышает x.
Цикл с параметром