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

Привет! Помогите пожалуйста Паскаль!

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

Привет! Помогите пожалуйста Паскаль!

Ответов к вопросу: 1
  • nurtileuduisen
    23.12.2024 | 16:30

    Объяснение:
    Вариант 6
    const
    N = 10;
    var
    a: array[1.N] of integer;
    i, max1, max2: byte;
    begin
    randomize;
    for i:=1 to N do begin
    a[i] := random(10);
    write(a[i]:3);
    end;
    writeln;

    max1 := 1;
    for i:=2 to N do
    if a[i] > a[max1] then
    max1 := i;

    if max1=1 then
    max2 := 2
    else
    max2 := 1;

    for i:=2 to N do
    if i <> max1 then // чтобы пропустить max1
    if a[i] > a[max2] then
    max2 := i;

    writeln(max1,’ ‘, a[max1]);
    writeln(max2,’ ‘, a[max2]);
    end.

    Вариант 8 не получилось

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