Помогите пожалуйста Закончить (завершить) программу:... - вопрос №862952

Помогите пожалуйста Закончить (завершить) программу:

Program kontrol;

Const n=10;

var mas: array[1..n] of real;

i, imax, imin: integer; sr, max, min, sum: real;

begin

writeln ('введи значения внутренней ширины единиц подвижного состава');

for i:=1 to n do read (mas[i]); writeln ('вывод значений внутренней ширины

единиц подвижного состава'); for i:=1 to n do write (mas[i]:10:2); writeln;

{Нахождение максимального значения}

imax:=1;

max:=mas[1];

for i:=1 to n do

if (mas[i]>max) then begin max:=mas[i]; imax:=i; end;

writeln ('max=',max:5:2,'находитсяна ',imax:2,'месте);

writeln;

Ответов пока нет

Еva

от 100 p.
Читать ответы

1 1

Бесплатно
Читать ответы
Посмотреть всех экспертов из раздела Учеба и наука > Информатика
Пользуйтесь нашим приложением Доступно на Google Play Загрузите в App Store