Информатика, 9 класс

№7. program z7; var a:array[1..40] of integer; i,k,s:integer; sr:real; begin writeln('введите колич-во учеников в классе'); readln(k); for i:=1 to k do begin writeln('введите отметку ', i, '-го ученика: '); readln(a[i]); end; writeln('исходный массив: '); for i:=1 to k do write(a[i], ' '); writeln; s:=0; for i:=1 to k do s:=s+a[i]; sr:=s/k; writeln('сред.балл по информ-ке = ',sr); end.