Задать вопрос
7 августа, 06:02

Составте программу в паскале.

В целочисленном массиве из 10 чисел найти максимум и минимум и вывести на печать те элементы, которые находятся между максимумом и минимумом.

+4
Ответы (1)
  1. 7 августа, 07:13
    0
    Procedure massiv;

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

    i, max, min:integer;

    begin

    min:=1;

    max:=1;

    randomize;

    for i:=1 to 10 do

    begin

    a[i]:=random (100) ;

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

    write (a[i],' ') ;

    end;

    writeln ('Минимальное ', a[min], ' Максимальное ', a[max]) ;

    if min
    for i: = min+1 to max-1 do

    write (a[i],' ') else

    for i: = max+1 to min-1 do

    write (a[i],' ')

    end;

    begin

    massiv ()

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