Предмет: Информатика,
автор: lyamanalizade1p6hz32
Напишите программу для вычисления суммы положительных элементов массива целых чисел А(n)
Ответы
Автор ответа:
0
Готово, даже удалось избежать создания самого массива)
Приложения:
shoshin142:
Вот код, на всякий случай:
Program Summa;
var
n, i, a, s: integer;
Begin
//Ввод длины массива
write('Кол-во элементов в массиве -> ');
readln(n);
//Считываем вводимые элементы и сразу проверяем их на положительность
s := 0; i := 0;
for i := 1 to n do
begin
write('A(', i, ') = ');
readln(a);
if (a > 0) then
s := s + a;
end;
//Вывод ответа
write('Сумма положительных элементов массива: ', s, '.');
End.
var
n, i, a, s: integer;
Begin
//Ввод длины массива
write('Кол-во элементов в массиве -> ');
readln(n);
//Считываем вводимые элементы и сразу проверяем их на положительность
s := 0; i := 0;
for i := 1 to n do
begin
write('A(', i, ') = ');
readln(a);
if (a > 0) then
s := s + a;
end;
//Вывод ответа
write('Сумма положительных элементов массива: ', s, '.');
End.
Похожие вопросы
Предмет: Физкультура и спорт,
автор: RonaAnna
Предмет: Английский язык,
автор: semenigumencev
Предмет: Литература,
автор: 282901028383
Предмет: Алгебра,
автор: Alex364
Предмет: Алгебра,
автор: Katyayushina