Программирование на Pascal
Компьютерные Технологии в Обучении
  256ПрограммированиеPascalСумма положительных элементов массива

Информационный блок

Рекламный блок

Использование циклов. Сумма положительных элементов массива

Циклы for, while, repeat. Шесть примеров решения задачи на языке Паскаль. Варианты для Turbo/Borland/FreePascal и PascalABC.NET

Цикл for. Найти сумму положительных элементов вещественного массива

Задание:
Ввести с клавиатуры массив из 10 вещественных чисел.
Найти сумму положительных элементов массива.
Program Summa10;
Var
i : Integer;
Summa : Real;
A : array [1..10] of Real;
begin
writeln('Введите 10 вещественных чисел ');
for i := 1 to 10 do readln(A[i]);
Summa := 0;
for i := 1 to 10 do
if (A[i] > 0) then Summa := Summa + A[i];
writeln('Сумма = ', Summa);
end.

Цикл for. Найти сумму положительных элементов массива

Задание: Ввести с клавиатуры массив из 10 вещественных чисел.
Найти сумму положительных элементов массива.
Вариант для PascalABC.NET
begin
var A : array [1..10] of Real;

var Summa := 0.0;
write('Введите 10 вещественных чисел ');
for var i := 1 to 10 do begin // Параметр цикла for в PascalABC.NET должен описываться в заголовке цикла
A[i] := ReadlnReal;
if (A[i] > 0) then Summa := Summa + A[i];
end;
writeln('Сумма = ', Summa);
end.

Цикл while. Найти сумму положительных элементов массива

Задание: Ввести с клавиатуры массив из 10 вещественных чисел.
Найти сумму положительных элементов массива.
Program CalcSum;
Var
i : Integer;
Summa : Real;
A : array [1..10] of Real;
begin
writeln('Введите 10 вещественных чисел ');
i := 1;
while i <= 10 do begin
readln(A[i]);
i := i + 1;
end;
Summa := 0;
i := 1;
while i <= 10 do begin
if (A[i] > 0) then Summa := Summa + A[i];
i := i + 1;
end;
writeln('Сумма = ', Summa);
end.

Цикл while. Вычислить сумму положительных элементов массива

Задание: Ввести с клавиатуры массив из 10 вещественных чисел.
Найти сумму положительных элементов массива.
var
i: Integer;
Summa: Real;
A: array [1..10] of Real;
begin
write('Введите 10 вещественных чисел ');
i := 1;
Summa := 0;
while i <= 10 do
begin
readln(A[i]);
if (A[i] > 0) then Summa := Summa + A[i];
i := i + 1;
end;
writeln('Сумма = ', Summa);
end.

Цикл while. Сумма положительных элементов массива. Вариант для PascalABC.NET

Задание: Ввести с клавиатуры массив из 10 вещественных чисел.
Найти сумму положительных элементов массива.
begin
Var
A : array of Real := New real[10]; // Динамический массив. Индексы в массиве начинаются с 0
Var
i : Integer := 1;
Var
Summa : Real := 0;

writeln('Введите 10 вещественных чисел ');
while i <= 10 do begin
A[i-1] := ReadReal;
if (A[i-1] > 0) then Summa += A[i-1];
i += 1;
end;
Println('Сумма = ', Summa);
end.

Цикл repeat. Сумма положительных элементов массива

Задание: Ввести с клавиатуры массив из 10 вещественных чисел.
Найти сумму положительных элементов массива.
Вариант для PascalABC.NET
Var
i : Integer = 1;
Summa : Real = 0;
A : array [1..10] of Real;
begin
writeln('Введите 10 вещественных чисел ');
repeat
A[i] := ReadReal('Введите число ');
if (A[i] > 0) then Summa += A[i];
i += 1;
until i > 10;
Println('Сумма = ', Summa);
end.

Рекламный блок