Алгоритм (блок-схема, программа на языке Pascal) для нахождения максимального элемента в массиве из 10 случайных элементов
Алгоритм (блок-схема, программа на языке Pascal) для нахождения максимального элемента в массиве из 10 случайных элементов
Гость
Ответ(ы) на вопрос:
ГостьКод рабочий, проверял на PascalABC
uses GraphABC;
var m: integer; arr: array [1..10] of integer;
begin
for var i := 1 to 10 do
begin
arr[i] := Random(120,200);
end;
m := Max(arr[1], Max(arr[2], Max(arr[3], Max(arr[4], Max(arr[5], Max(arr[6], Max(arr[7], Max(arr[8], Max(arr[9], arr[10])))))))));
println(m);
end.
Не нашли ответ?
Похожие вопросы