Информатика, опубликовано 2018-08-22 20:59:50 by Гость
составить программу нахождения максимального элемента в массиве из 30 чисел
Ответ оставил Гость
Эта автоматически тебе всё сделает.
Var i, n, max : Integer;
a : array [1..30] of Integer;
begin
for i := 1 to 30 do
begin
Write(a[, i, ]=);
a[i]:=i+1;
if max writeln(a[i]);
end;
writeln(Максимальный элемент равен: ,max);
end.
Если нужно будет ввести последовательность с клавиатуры, то вот:
Var i, n, max : Integer;
a : array [1..30] of Integer;
begin
for i := 1 to 30 do
begin
Write(a[, i, ]=);
ReadLn (a[i]);
if maxend;
writeln(Максимальный элемент равен: ,max);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на