Написать программку. В программу вводится n чисел, величину n задаёт пользователь,
Написать программку. В программу вводится n чисел, величину n задаёт пользователь, а также числа вводятся попорядку.
1.Отыскать сумму введённых чисел.
2.Количество чисел одинаковых 0.
3.Отыскать максимум и минимум посреди введённых чисел. Нужно на языке С. Помогите пожалуйста.
Валерия
На паскале?
Женя Зицерман
Можно? Либо на питоне? На Си я не потяну
1 ответ
Эмилия Элерма
Крч вот на паскале, на Си не могу, сорь
program llllll;
var
A: array [-1000..1000] of integer;
n, i, b : integer;
begin
writeln('Введите количество чисел');
readln(n);
b:=0;
for i := 1 to n do
readln(A[i]);
for i := 0 to (n) do
b := b+ A[i];
write('Это сумма ');
writeln(b); // Это сумма.
b:=0;
for i := 1 to (n) do
begin
if A[i] = 0 then
b := b+1
end;
write('Это количество нулей ');
writeln(b) ;// это количество нулей
b:= -1001;
for i := 1 to (n) do
begin
if A[i] gt; b then
b := A[i]
end;
write('Это наибольшее число ');
writeln(b); // Это наибольшее число
b:= 1001;
for i := 1 to (n) do
begin
if A[i] lt; b then
b := A[i]
end;
write('Это малое число ');
writeln(b) // Это малое число
end.
program llllll;
var
A: array [-1000..1000] of integer;
n, i, b : integer;
begin
writeln('Введите количество чисел');
readln(n);
b:=0;
for i := 1 to n do
readln(A[i]);
for i := 0 to (n) do
b := b+ A[i];
write('Это сумма ');
writeln(b); // Это сумма.
b:=0;
for i := 1 to (n) do
begin
if A[i] = 0 then
b := b+1
end;
write('Это количество нулей ');
writeln(b) ;// это количество нулей
b:= -1001;
for i := 1 to (n) do
begin
if A[i] gt; b then
b := A[i]
end;
write('Это наибольшее число ');
writeln(b); // Это наибольшее число
b:= 1001;
for i := 1 to (n) do
begin
if A[i] lt; b then
b := A[i]
end;
write('Это малое число ');
writeln(b) // Это малое число
end.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Игорь 14 лет назад был на 8 лет моложе, чем его
Математика.
Два тела массами m1 и m2 находящие на расстоянии R друг
Физика.
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
Облако тегов