Презентация на тему по информатике на тему ЗАДАНИЯ С РЕШЕНИЕМ ДЛЯ ЗАКРЕПЛЕНИЯ ТЕМЫ “МАССИВЫ” В PASCAL.

Необходимо определить их сумму, номер элемента равного 90 и

const a: array [1..6] of real=(10,25,0.5,93,68,7);
var i,n,k:integer;
s:real;
begin
n:=0;
for i:=1 to 6 do
if a[i]=93 then n:=i;
writeln ('Номер элемента 93 равен ',n);
k:=0;
for i:=1 to 6 do
if a[i]<30 then k:=k+1;
writeln ('Количество элементов <30 равно ',k);
s:=0;
for i:=1 to 6 do
if (15 s:=s+a[i];
writeln('summa: ',s);
end.

и вывести на экран количество учащихся, чья оценка выше

const a:array [1..10] of integer=(3,4,5,4,5,3,2,5,3,4);
var i,s,k:integer;
sr:real;
begin
for i:=1 to 10 do
write (a[i], ' ');
writeln;
k:=0;
for i:=1 to 10 do
if a[i]>3 then
k:=k+1;
writeln ('Кол-во учеников с оценкой выше 3 = ',k);
s:=0;
for i:=1 to 10 do
s:=s+a[i];
sr:=s/10;
writeln ('Средний балл учащихся по с\р = ',sr);
writeln;
end.

readln(n,b,c);
s:=0;
for i:=1 to n do
begin