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

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

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

Сумма элементов массива. Циклы for, while, repeat

Пять примеров решения задачи на языке Паскаль. В некоторых вариантах используется синтаксис для PascalABC.NET

Цикл for. Найти сумму элементов целочисленного массива

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

Цикл for. Найти сумму 10 элементов массива

Задание:
Заполнить с клавиатуры массив из 10 целых чисел.
Найти сумму элементов массива.
begin
// Вариант для PascalABC.NET - "здоровье кода" составляет 101%.
var A : array [1..10] of Integer; // Замечание: Используется статический массив, вместо рекомендованного динамического

write('Введите 10 целых чисел ');
for var i := 1 to 10 do readln(A[i]); // Замечание: Для ввода использована не рекомендованная процедура Readln

var Summa : Integer := 0;
for var i := 1 to 10 do Summa := Summa + A[i];
Println('Сумма = ', Summa);
end.

Цикл while. Найти сумму 10 элементов массива

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

Цикл while. Найти сумму элементов массива

Задание:
Заполнить с клавиатуры массив из 10 целых чисел.
Найти сумму элементов массива.
Для решения задачи использовать один цикл while.
(*
Вариант для PascalABC.NET - "здоровье кода" составляет 125%.
*)
begin
var i : Integer = 1;
var Summa : Integer = 0;
var A : array [1..10] of Integer;

writeln('Введите 10 целых чисел ');
while i <= 10 do begin
A[i] := ReadInteger;
Summa += A[i];
i += 1;
end;
Println('Сумма = ', Summa);
end.

Цикл repeat. Найти сумму элементов целочисленного массива

Задание:
Заполнить с клавиатуры массив из 10 целых чисел.
Найти сумму элементов массива.
Использовать синтаксис для PascalABC.NET
// Вариант для PascalABC.NET - "здоровье кода" составляет 129%.
begin
var i : Integer = 1;
var Summa : Integer = 0;
var A : array [1..10] of Integer;

Println('Введите 10 целых чисел ');
repeat
A[i] := ReadInteger;
Summa += A[i];
i += 1;
until i < 10;
Println('Сумма = ', Summa);
end.

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