Регистрация
nataliylitvino
08.09.2022 19:24
Информатика
Есть ответ 👍

Алгоритм (блок-схема, программа на языке pascal) для нахождения максимального элемента в массиве из 10 случайных элементов

277
341
Посмотреть ответы 2

Ответы на вопрос:

lapysh1995
lapysh1995
4,4(72 оценок)
Код рабочий, проверял на 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], ;   println(m); end.
люба358
люба358
4,8(95 оценок)
Var i,s: integer; begin for i: =1 to 10 do s: =s+i; writeln('сумма чисел от 1 до 10 =  ',s); end.

Популярно: Информатика