Регистрация
fgoolis58
10.03.2022 23:37
Информатика
Есть ответ 👍

ПАСКАЛЬ Найти среднее арифметическое максимального и минимального элементов массива.

268
357
Посмотреть ответы 1

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

brandt04
brandt04
4,7(25 оценок)
Const k = 7; var a: array[1..k] of integer; i,n: integer; begin for i: = 1 to k do       begin       a[i]: =random(1001);       write(a[i],' ');       end; writeln; n: =1; for i: = 2 to k-1 do       if a[i]*a[i+1]> a[n]*a[n+1] then n: =i; writeln(n,' и ',n+1) end.

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