Предмет: Информатика,
автор: ComicSans266
Объявить массив из 4-х элементов, заполнить его с клавиатуры и найти максимальное. Сам массив и макс записать в файл. Pascal.ABS
Ответы
Автор ответа:
1
Ответ:
program Max;
var
massiv: array [1..4] of integer;
i: integer;
max: integer;
filetext: text;
begin
assign(filetext,'c:\text.txt');
rewrite (filetext);
for i:=1 to 4 do begin
readln(massiv[i]);
WriteLn(filetext,massiv[i]);
end;
max := massiv[1];
for i:=2 to 4 do begin
if massiv[i]>max then
max := massiv[i];
end;
writeln(filetext,max);
close(filetext);
end.
Объяснение:
ComicSans266:
Спс
Похожие вопросы
Предмет: Физика,
автор: czi04588
Предмет: Русский язык,
автор: mstfyaltwrh48
Предмет: Математика,
автор: ysiqkshskqiskw
Предмет: Математика,
автор: кайыргалиевмейрамбек
Предмет: Химия,
автор: Neznakomka08