Задать вопрос
13 июня, 00:58

Информатика. Тема: Оператор ветвления на Паскале

Задача

из 4 величин определить наименьшее

решать типо:

Program ...

begin

readln и т. д.

+4
Ответы (1)
  1. 13 июня, 02:58
    0
    Program z1;

    var i, n:integer;

    a:array [1 ... 100] of integer;

    begin

    readln (n) ;

    for i: = 1 to 4 do

    begin

    readln (A[I]) ;

    end;

    for i : = 1 to 4 do

    begin

    If A [i] > n then writeln (A [i]) ;

    end; readln; end.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Информатика. Тема: Оператор ветвления на Паскале Задача из 4 величин определить наименьшее решать типо: Program ... begin readln и т. д. ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы