Блог для маленьких школьников и их родителей
ШколаЛа

Массив состоит из 100 целых чисел. Найти разность наибольшего четного и наибольшего нечетного элемента…

Автор:
Предмет: Информатика
Уровень: 5 - 9 класс

Массив состоит из 100 целых чисел. Найти разность наибольшего четного и наибольшего нечетного элемента массива.

Всё это в Паскале

Ответов к вопросу: 1
  • ajtbaevazasmina1
    08.07.2024 | 09:21

    max1 — индекс максимального четного элемента
    max2 — индекс максимального нечетного элемента

    Var
    mas: array[1.100] Of integer;
    max1,max2,j: integer;

    Begin
    For j:=1 To 100 Do
    Begin
    mas[j] := random(100);
    If j=1 Then max1 := j
    Else
    If (mas[j]>mas[max1])And(mas[j] Mod 2=0) Then max1 := j;
    If j=1 Then max2 := j
    Else
    If (mas[j]>mas[max2])And(mas[j] Mod 2=1) Then max2 := j;
    write(mas[j],’ ‘);
    End;
    writeln;
    write(mas[max1],'[‘,max1,’] — ‘,mas[max2],'[‘,max2,’] = ‘,mas[max1]-mas[max2]);
    End.

Ответить на вопрос:
:p :-p 8) 8-) :lol: =( :( :-( :8 ;) ;-) :(( :o:
Нажимая на кнопку я даю согласие на обработку персональных данных и принимаю политику конфиденциальности.