Σ Сумма случайных чисел. Циклы 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);
C++ | Сложение элементов массива
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 readln(A[i]);
i := i + 1;
end;
Summa := 0;
i := 1;
while i 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 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%).
Источник: 256.ru
Сумма и произведение элементов одномерного массива
Найти сумму и произведение элементов одномерного числового массива.
Задачи данного типа в теме «Массивы» относятся к простым и сводятся к поэлементному перебору массива и выполнению соответствующих алгебраических операций (в данном случае сложения и умножения).
Вводятся «пустые» переменные, значения которых в цикле for перезаписываются. Сумма элементов массива находится путем прибавления элемента к прежнему значению переменной. Произведение – умножением прежнего значения переменной на очередной элемент.
Первым значением переменной для суммы должен быть ноль, для произведения – единица (иначе умножение на ноль даст в результате ноль).
В примере ниже отводится память под массив, максимальное количество элементов которого равно 100. Однако пользователь сам задает количество элементов массива (до 100). Это значение присваивается переменной n .
Пользователь сам заполняет массив значениями (первый цикл for).
Переменные sum и op хранят соответственно значения суммы и произведения элементов массива. В соответствующих циклах их значения постепенно увеличиваются.
Программа вычисления суммы и произведения элементов массива на языке Паскаль:
const max = 100; var arr: array[1..max] of real; n: integer; sum, op: real; i: integer; begin write(‘Количество элементов: ‘); readln(n); write(‘Укажите значения: ‘); for i := 1 to n do read(arr[i]); sum := 0; for i := 1 to n do sum := sum + arr[i]; op := 1; for i := 1 to n do op := op * arr[i]; writeln(‘Сумма элементов: ‘, sum:10:2); writeln(‘Произведение элементов: ‘, op:20:2); end.
Источник: pas1.ru
Как найти сумму элементов массива? Программа на Java
Сегодня мы рассмотрим программу для подсчета суммы элементов массива на Java. Рассмотрим 2 примера программы: первая будет подсчитывать сумму элементов уже инициализированного массива с определенным количеством элементов, а другая программа будет считать сумму элементов массива, введенного пользователем. Эта статья является частью раздела для начинающих Java программистов.
Источник: javadevblog.com