Заполнение массива и вычисление суммы элементов

Задача

Требуется заполнить массив числами, которые вводит пользователь, и вычислить их сумму. Если пользователь вводит ноль или превышен размер массива, то запросы на ввод должны прекратиться.

Решение

 

Алгоритм решения задачи: 

Для решения подобного рода задач иногда бывает уместно использовать цикл с постусловием (repeat).

Программа на языке Паскаль: 

 

const n = 10;
var
    arr: array[1..n] of integer;
    sum: integer;
    i: byte;
 
begin
 
    i := 1;
    sum := 0;
    repeat
        write ('Число: ');
        readln(arr[i]);
        sum := sum + arr[i];
        i := i + 1
    until (arr[i-1] = 0) or (i > n);
 
    for i := 1 to n do
        write (arr[i],' ');
 
    writeln;
    writeln ('sum = ', sum);
 
readln
end.

 

Тема

Одномерные массивы

Уровень

Комбинированные задачи

Добавить комментарий