задача 3 урок 15
Primary tabs
Пользователь вводит массив целых чисел из 7 элементов. Найдите из них самое большое число и выведите его на экран.
program task_3_Lesson_15; var a: array[1..7] of integer; i, b, max: integer; begin for i := 1 to 7 do begin readln(b); a[i] := b; end; max := low(a); // предположим что максимум это первый элем. for i := 1 to 7 do // начинаю перебор со второго элемента if a[i] >= max then max := a[i]; writeln('Bolshee chislo : ',max); readln end.
- Log in to post comments
- 368 reads