срочно плиз !!очень надо
10-11 класс
|
var a:array[1..1000] of integer;
i,n,max,min:integer;
begin
randomize;
write('Введите размерность массива n= ', n); readln(n);
for i:= 1 to n do begin
a[i]:= random(100)-30; write(a[i],' '); end;
writeln;
max:=a[1]; min:=a[1];
for i:=2 to n do begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
writeln('Сумма максимального и минимального элементов массива = ',max+min);
end.
А что именно неверно - не сказал?
сказал что writeln коментарии не правилиные и какое-то действие пропущенно
writeln коменты неправильные, и одного действия не хватает
Запустите программу и все увидите. Главное, что она выдает правильный результат.
В 5 строке в скобках после апострофа убери запятую и переменную n
Другие вопросы из категории
информатике программирование.
изображении используется палитра из 256 пикселов
var i,max,min,x,:integer;
Sr:real;
begin
for i := 1 to 10 do
begin
writeln('вв-те ',i,' число' );
readln(x);
End;
if x<min then
min:=x;
if x>max then
max:=x;
sr:=(max+min)/2;
Writeln(max);
Writeln(min);
Writeln(Sr);
Readln;
end.
Читайте также
у=-(23 в восьмеричной системе счисления+ВА в шестнадцатеричной системе счисления+10101 в двоичной системе счисления) заранее большое спасибо.
Помогите упростить ... только поэтапно, законы не надо объяснять просто поэтапное упрощение ... "Ответы появятся здесь в ближайшее время" ндааа...