Задачи по теме массив
1. В массиве хранятся сведения об оценках 25 учеников по химии. Определить количество неуспевающих по химии учеников.
2. В мвссиве хранятся сведения об общей стоимости товаров , проданных фирмой за каждый день марта. Определить количество дней, в которые стоимость проданных товаров превысила значение S.
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-ке
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
