profile
Опубликовано 6 лет назад по предмету Информатика от Oxion

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

  1. Ответ
    Ответ дан artifex

    var num1,num2,i:integer;

    nums:array [1..10] of integer;

    begin

     

    i:=1;

    while (i <= 10) begin

    writeln('Vvedite ',i,' paru!');

    write('num 1: ');readln(num1);

    write('num 2: ');readln(num2);

    if(num1 >= num2) then nums[i]:=num1 else nums[i]:=num2;

    i:=i+1;

    end;

     

    i:=1;

    while(i<=10)begin

    write(nums[i],' ');

    i:=i+1;

    end;

     

    end.

Самые новые вопросы