Дан целочисленный массив из 30 элементов, все элементы которого – неотрицательные числа, не превосходящие - id225600520201219 от vladik1501 19.12.2020 22:31

Question

Информатика: Дан целочисленный массив из 30 элементов, все элементы которого – неотрицательные числа, не превосходящие 10000. опишите на языке или на одном из языков программирования алгоритм, который находит и выводит минимальное трехзначное число, записанное в этом массиве. если таких чисел нет, нужно вывести сообщение «таких чисел нет». const n=30; var a: array [1..n] of integer; i, j, min: integer; begin for i: =1 to n do readln(a[i]); end. исходные данные объявлены так, как показано ниже. запрещается использовать

vladik1501 · Accepted Answer

Вот на Pascal (Console Aplication) :
var
a:Integer;
begin
Writeln('Vvedite nominal valuti');
Readln(a);
case (a mod 10) of
1:
if (a=11) then
Writeln('Y Vas est ',a,' rublei')
else
begin
Writeln('Y Vas est ',a,' rubl');
end;
2,3,4:
if (a=12) or (a=13) or (a=14) then
Writeln('Y Vas est ',a,' rublei')
else
begin
Writeln('Y Vas est ',a,' rublya');
end;
0,5,6,7,8,9:
if (a=15) or (a=16) or (1=17) or (a=18) or (a=19) then
Writeln('Y Vas est ',a,' rublei')
else
begin
Writeln('Y Vas est ',a,' rublei');
end;
end;
Readln;
end.

MOGZ ответил