Регистрация
Флаксария
19.03.2023 16:12
Информатика
Есть ответ 👍

Задание 3 Напишите на алгоритмическом языке программу «Наибольшее из
трёх чисел».
1 ветвление: если (а>в) и (а>к) то с:=а
(аналогично, 2 отдельных ветвления для в, к)
УМОЛЯЮ

114
197
Посмотреть ответы 1

Ответы на вопрос:

Alinakis180902
Alinakis180902
4,4(63 оценок)

program xxx;

const n=30;

var    a : array [1..n] of integer;     i, k : integer; begin

    readln(n);

    k: =0;     for i: =1 to n do        begin

            write('a[',i,']=');

            readln (a[i]);

            if (a[i]> 6) and (a[i]< 10) then k: =k+1;         end;

    for i: =1 to n do            write(a[i], ' ');

    writeln();     writeln('количество чисел=',k);     readln(); end.

Популярно: Информатика