написать программу нахождения максимального числа, где должны быть: 1. ввод 10 чисел с клавиатуры 2. их перебор с нахождением максимального элемента 3. вывод значения максимального элемента в текстовый файл (программа должна его создать)
1 комментария:
Какой язык?
Какой язык? Ответы
Гость Const
N = 10;
Var
A:array[1..N] of integer;
i,Max:integer;
f:text;
Begin
For i:= 1 to N do
Read(A[i]);
Max:=A[1];
For i:= 2 to N do
if A[i] > Max then Max:=A[i];
Assign(f,'Max.txt');
Rewrite(f);
Write(f,Max);
Close(f);
End.
Нет комментариев
Похожие вопросы
Информатика
Алфавит содержится 32 символов. Определите информационный вес одного символа из этого алфавита...
Информатика
146, помогите пожалуйста....
Список предметов
