Дан целочисленный массив из 30 частей, которые могут принимать значения от

Дан целочисленный массив из 30 частей, которые могут принимать значения от 0 до 100 баллы учащихся за итоговый тест по информатике. Напишите программку, которая подсчитывает и выводит на экран средний балл класса, и также разность между ним и максимальным значением.
Нужна полная программка на языке Паскаль АВС.

Задать свой вопрос
1 ответ
Var max,sum,sred,razn:real;i:integer;mas:array[1..30] of integer;beginRandomize;max:=mas[1];for i:=1 to 30 dobeginmas[i]:=random(1,100);end;writeln('оценки класса');for i:=1 to 30 dobeginwrite(mas[i],' ');if(mas[i]gt;max) then max:=mas[i];sum:=sum+mas[i];end;sred:=sum/30;razn:=sred-max;writeln();writeln('среднее = ',sred);writeln('сумма оценок= ',sum);writeln('разность ',razn);end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт