Регистрация
senyazer
08.01.2023 16:50
Информатика
Есть ответ 👍

Напишите программу, которая в последовательности натуральных чисел определяет значение минимального, не кратного 9, элемента последовательности. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, не кратное 9. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число: значение минимального элемента не кратного 9.(язык паскаль, в виде курса 9 класса)

119
384
Посмотреть ответы 2

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

Артем2090
Артем2090
4,4(31 оценок)

Первая задача

var

i,n:1..1000;

a,max:-30000..30000;

begin

max:=-30000;

read(n);

for i:=1 to n do begin

read(a);

if (a>max) and (a mod 5=0) then max:=a;

end;

write(max);

end.

Вторая задача

var

i,n:1..100;

a:-300..300;

s:-30000..30000;

begin

s:=0;

read(n);

for i:=1 to n do begin

read(a)

if a mod 10=3 then s:=s+a;

end;

write(s);

end.

Объяснение:

lizatrubach2002
lizatrubach2002
4,4(41 оценок)

160*60*7=67200(бит)=8400(б)

ответ:   8400 б

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