Предмет: Информатика,
автор: ilyafrodo
Напишите программу, которая в последовательности натуральных чисел
определяет количество чисел, кратных 5
Приложения:
Ответы
Автор ответа:
0
Т.к. автор не указал требуемый язык программирования, то я напишу удобный мне - Pascal.
var a:array[1..1000] of integer;
i, n, min:integer;
begin
min:=30001;
writeln('введите количество элементов массива');
readln(n);
for i:=1 to n do begin
writeln('введите число');
readln(a[i]);
end;
for i:=1 to n do
if (a[i]<min)and(a[i]mod 5=0)and(a[i]>0) then min:=a[i];
writeln('минимальное положительное число=',min);
end.
var a:array[1..1000] of integer;
i, n, min:integer;
begin
min:=30001;
writeln('введите количество элементов массива');
readln(n);
for i:=1 to n do begin
writeln('введите число');
readln(a[i]);
end;
for i:=1 to n do
if (a[i]<min)and(a[i]mod 5=0)and(a[i]>0) then min:=a[i];
writeln('минимальное положительное число=',min);
end.
Автор ответа:
0
Спасибо)
Интересные вопросы
Предмет: ОБЖ,
автор: kto1eto2voobshe3
Предмет: Математика,
автор: tatyana081502
Предмет: Русский язык,
автор: Exmuz
Предмет: Математика,
автор: HASANOVSAMRAN
Предмет: Математика,
автор: Ушо