написать программу нахождения максимального числа, где должны быть: 1. ввод 10 чисел с клавиатуры 2. их перебор с нахождением максимального элемента 3. вывод значения максимального элемента в текстовый файл (программа должна его создать)

Question

Информатика

Танюша

10 февраля, 10:39

написать программу нахождения максимального числа, где должны быть: 1. ввод 10 чисел с клавиатуры 2. их перебор с нахождением максимального элемента 3. вывод значения максимального элемента в текстовый файл (программа должна его создать)

+1

Ответы (1)

Знаете ответ?

Светозар · Answer 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.