Задачи по теме массив

1. В массиве хранятся сведения об оценках 25 учеников по химии. Определить количество неуспевающих по химии учеников.

2. В мвссиве хранятся сведения об общей стоимости товаров, проданных фирмой за каждый день марта. Определить количество дней, в которые стоимость проданных товаров превысила значение S.

Question

Информатика

Захарыч

5 мая, 17:43

Задачи по теме массив

1. В массиве хранятся сведения об оценках 25 учеников по химии. Определить количество неуспевающих по химии учеников.

2. В мвссиве хранятся сведения об общей стоимости товаров, проданных фирмой за каждый день марта. Определить количество дней, в которые стоимость проданных товаров превысила значение S.

+4

Ответы (1)

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

Ольгуся · Answer 1

1. var a:array[1 ... 100] of integer;

i, s:integer;

begin

for i:=1 to 25 do begin

a[i]:=random (5) + 1;

write (a[i]:4) ;

end;

s:=0;

for i:=1 to 25 do begin

if a[i]<=2 then s:=s+1;

end;

writeln;

writeln ('Количество неуспевающих=', s) ;

end.

это при условии, что человек неуспевающий, если у него оценка ниже или равна 2-ке