овал-начало пара-м-ввести a,b,c ромб-a>b (от него 2 стрелки:да и нет) от стрелки ДА: ромб-a>c (от него 2 стрелки ДА и НЕТ) от стрелки ДА: пара-м-вывести а овал -конец от стрелки НЕТ: пара-м-вывести с овал-конец возвращаемся к ромбу из 3 строчки моего решения,под его 2 стрелкой НЕТ: ром-b>c(от него две стрелки:ДА и НЕТ) под стрелкой ДА: пара-м-вывести в овал-конец Под стрелкой НЕТ: пара-м вывести с овал-конец
Const n =5; var a:array[1..n] of integer; i,max:integer; begin writeln('Введите 1 элемент массива'); readln(a[1]); max:=a[1]; for i:=2 to n do begin writeln('Введите ', i,' элемент массива'); readln(a[i]); if a[i]>max then max := a[i]; end; writeln('Максимальный элемент массива равен ',max); end.
Тестовое решение: Введите 1 элемент массива 21 Введите 2 элемент массива 56 Введите 3 элемент массива 12 Введите 4 элемент массива 24 Введите 5 элемент массива 15 Максимальный элемент массива равен 56
Const n =5; var a:array[1..n] of integer; i,max:integer; begin writeln('Введите 1 элемент массива'); readln(a[1]); max:=a[1]; for i:=2 to n do begin writeln('Введите ', i,' элемент массива'); readln(a[i]); if a[i]>max then max := a[i]; end; writeln('Максимальный элемент массива равен ',max); end.
Тестовое решение: Введите 1 элемент массива 21 Введите 2 элемент массива 56 Введите 3 элемент массива 12 Введите 4 элемент массива 24 Введите 5 элемент массива 15 Максимальный элемент массива равен 56
овал-начало
пара-м-ввести a,b,c
ромб-a>b (от него 2 стрелки:да и нет)
от стрелки ДА:
ромб-a>c (от него 2 стрелки ДА и НЕТ)
от стрелки ДА:
пара-м-вывести а
овал -конец
от стрелки НЕТ:
пара-м-вывести с
овал-конец
возвращаемся к ромбу из 3 строчки моего решения,под его 2 стрелкой НЕТ:
ром-b>c(от него две стрелки:ДА и НЕТ)
под стрелкой ДА:
пара-м-вывести в
овал-конец
Под стрелкой НЕТ:
пара-м вывести с
овал-конец