🔁 Использование циклов. Сумма положительных элементов массива. Циклы for, while, repeat. Шесть примеров решения задачи на языке Паскаль. Варианты для Turbo/Borland/FreePascal и PascalABC.NET
Σ Сумма случайных чисел. 🔁 Циклы for, while. Три задачи на нахождение суммы случайно сгенерированных элементов. Для каждой задачи приведено два варианта - классический синтаксис (Turbo/Borland Pascal) и PascalABC.NET
🔀 Обмен двух чисел в массиве. Тема "Циклы и массивы". Два варианта решения задачи.
Σ Вычисление суммы цифр числа. Пять вариантов решения задачи, в том числе одно по рекомендациям PascalABC.NET (качество кода 149%).
Пять примеров решения задачи на языке Паскаль. В некоторых вариантах используется синтаксис для 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.
🔁 Использование циклов. Сумма положительных элементов массива. Циклы for, while, repeat. Шесть примеров решения задачи на языке Паскаль. Варианты для Turbo/Borland/FreePascal и PascalABC.NET
Σ Сумма случайных чисел. 🔁 Циклы for, while. Три задачи на нахождение суммы случайно сгенерированных элементов. Для каждой задачи приведено два варианта - классический синтаксис (Turbo/Borland Pascal) и PascalABC.NET
🔀 Обмен двух чисел в массиве. Тема "Циклы и массивы". Два варианта решения задачи.
Σ Вычисление суммы цифр числа. Пять вариантов решения задачи, в том числе одно по рекомендациям PascalABC.NET (качество кода 149%).
