Регистрация
Анигелятор228
02.01.2021 03:01
Информатика
Есть ответ 👍

Pascal abc. дан одномерный массив из n действительных чисел. найти номер последнего максимального элемента.

259
440
Посмотреть ответы 2

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

YourKarma396
YourKarma396
4,8(48 оценок)

program asd;

uses crt;

var a: array [1..100] of integer;

    n,k, i,max: integer;

begin

writeln ('размер массива');

readln (n);

for i: =1 to n do

begin

readln (a[i]);

if a[i]> =max

then begin

        max: =a[i];

        k: =i;

      end;

end;

writeln (k);

end.

лена1278
лена1278
4,8(16 оценок)

значит игра недоступна или удаленны данные игры!

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