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

1. var a:array[1..100] of integer; i,s:integer;beginfor i:=1 to 25 do begina[i]:=random(5)+1;write(a[i]:4);end;s:=0;for i:=1 to 25 do beginif a[i]<=2  then s:=s+1;end;writeln;writeln('Количество неуспевающих=',s);end.это при условии,что человек неуспевающий,если у него оценка ниже или равна 2-ке