Задать вопрос
28 октября, 20:10

Дан массив. Найти максимальный элемент.

+3
Ответы (1)
  1. 28 октября, 22:58
    0
    Вот на Паскале:

    uses crt;

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

    max, i, n:integer;

    begin

    clrscr;

    writeln (' vvedite kol-vo cifr ') ;

    readln (n) ;

    for i:=1 to n do begin

    write ('vvedite ', i, ' Chislo ') ;

    readln (mas[i]) ;

    end;

    max:=mas[i];

    for i:=2 to n do

    if mas[i]>max then max:=mas[i];

    writeln ('max chislo: ', max) ;

    readln;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Дан массив. Найти максимальный элемент. ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы