Регистрация
Мику35
08.04.2022 16:49
Информатика
Есть ответ 👍

Дано n чисел найдите минимальное из них. !

142
496
Посмотреть ответы 2

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

викториасн
викториасн
4,5(12 оценок)
Var n,min,i: integer;     chisl : array[1..1000]of integer; begin    randomize;     min: =1000;     writeln('vvedity n='); readln(n);     for i: =1 to n do begin    chisl[i]: =random(1000); writeln(chisl[i]);     end;     for i: =1 to n do begin    if chisl[i]< min then min: =chisl[i];     end;     writeln('minimum=',min); end.
eraly2
eraly2
4,6(81 оценок)

program task1; var n, s, k, i: integer; beginwrite('кол-во чисел = '); readln(n); s : = 0; for i : = 1 to n dobeginwrite('введите число '); readln(k); s : = s + kend; writeln('сумма введенных произвольных чисел = ', s); end.

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