Информатика, опубликовано 2018-08-22 22:59:14 by Гость
Ввести с клавиатуры массив из 5 элементов найти максимальный из них
Ответ оставил Гость
Pascal:
program z1;
var k:array[1..5] of integer;
i,max:integer;
begin
for i:=1 to 5 do
begin
write(Введите элемент: );
readln(k[i]);
end;
max:=k[1];
for i:=1 to 5 do
begin
if(k[i]>max) then max:=k[i]
else max:=max;
end;
writeln(Max element: ,max);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на