Данные записаны в одной строке
координата одномерная А[i]
То, что на фото
1)6
2)0
3)0
4) 1
не на фото
5
Эмм.. Это загадка? Символ?
Сделано с рандомными числами.
program massiv; var mas:array [1..10] of real; a:real; i:byte; begin a:=0; for i:=1 to 10 do begin mas[i]:=random(10)+1; if a<mas[i] then a:=mas[i]; end; writeln(a, ' - наибольшее из чисел массива ' ); end.
1)Начало
2)Сравни первое и второе числа;если первое меньше второго,то поменяй их местами.
3)Сравни второе и третьего числа;если второе меньше третьего ,то поменяй их местами.
4)Если теперь три числа расположены в порядке убывания ,то исполни пункт 5) этого алгоритма; иначе вернись. к пункту 2).
<span>5)Конец</span>