Вычислить сумму всех неотрицательных элементов, а также их количество - PascalABC.NET
Формулировка задачи:
Дан массив А[N,N].Вычислить сумму всех неотрицательных элементов, а также их количество. Надо написать прогу в Pasckal.
Решение задачи: «Вычислить сумму всех неотрицательных элементов, а также их количество»
textual
Листинг программы
program massiv;
const n=5;
var sum,s,i:integer; a:array [1..n] of integer;
begin
writeln('Заполните массив');
for i:=1 to n do begin
write('A[',i,']=');
read(a[i]);
end;
sum:=0;
for i:=1 to 5 do
if a[i]>0 then sum:=sum+a[i];
writeln('Cумма положительных элементов = ',sum);
s:=0;
for i:=1 to n do
if a[i]>0 then s:=s+1 ;
writeln('Количество положительных элементов = ',s)
end.
Объяснение кода листинга программы
- Создаётся программа с названием
massiv. - Задаётся размер массива n=5.
- Объявляются переменные:
- sum (сумма) типа integer;
- s (количество) типа integer;
- i (счётчик) типа integer;
- a (массив) типа array [1..n] of integer.
- Выводится запрос на заполнение массива.
- Происходит заполнение массива с помощью цикла for и оператора read.
- Сумма положительных элементов массива вычисляется с помощью цикла for и условного оператора if.
- Количество положительных элементов массива вычисляется с помощью цикла for и условного оператора if.
- Выводятся значения суммы и количества на экран.