Задача 3 Урок 15
Primary tabs
Пользователь вводит массив целых чисел из 7 элементов. Найдите из них самое большое число и выведите его на экран.
program U15Z3; var a: array[1..7] of integer; i,max: integer; begin writeln('vvedite 7 elementov massiva'); for i:=1 to 7 do readln(a[i]); max:= a[1]; for i:=2 to 7 do if (a[i]>max) then max:=a[i]; writeln('mazimalnoe znachenie: ', max); readln(); end.
- Log in to post comments
- 1100 reads