90Баллов
Помогите мне прям очень срочнооооо!!!!!
Выполнить задание в Паскале. Дан массив из 10 чисел. Найти наибольшее значение среди элементов массива и вывести его на экран. Входные данные для решения задания задать самостоятельно. На проверку нужно прислать код программы и скриншот окна программы с отображением кода и результатов работы.
Answers & Comments
Ответ:
pascal
Объяснение:
var
a: array[1..10] of integer;
i, max, imax: integer;
begin
WriteLn('Введите значения массива:');
for i := 1 to 10 do
begin
Write('a[', i, '] = '); ReadLn(a[i]);
end;
max := a[1];
imax := 1;
for i := 2 to 10 do
begin
if a[i] > max then
begin
max := a[i];
imax := i;
end;
end;
WriteLn('Максимальный элемент: a[', imax, '] = ', max);
end.