Var A:array[1..13] of integer; i,S:integer; begin for i:=1 to 13 do begin Write('A[',i,']='); Readln(a[i]); end; i:=1 repat if a[i]<0 then S:=S+a[i]; i:=i+1; until i<=0; Writeln(s); end.
#include <iostream> using namespace std; const int N = 8; //длина массива int s = 0; //начальное значение суммы int mas[N]; //объявляем статический массив длины N int main() { //вводим элементы массива for(int i = 0; i < N; ++i) { cin >> mas[i]; } //пробегаемся по элементам массива for(int i = 0; i < N; ++i) { if(mas[i] > 0) //если элемент массива больше 0 s += mas[i]; //прибавляем значение элемента к итоговой сумме } cout << s; //вывод суммы на экран return 0; }
Линейный (последовательный) алгоритм — описание действий, которые выполняются однократно в заданном порядке. линейными являются алгоритмы отпирания дверей, заваривания чая, приготовления одного бутерброда. линейный алгоритм применяется при вычислении арифметического выражения, если в нем используются только действия сложения и вычитания.
например алгоритм заварки чая:
вскипятить воду ополоснуть кипятком заварной чайник засыпать в чайник заварку залить кипятком заварной чайник накрыть чайник специальной грелкой подождать до полного заваривания 5 минут
i,S:integer;
begin
for i:=1 to 13 do begin
Write('A[',i,']='); Readln(a[i]);
end;
i:=1
repat
if a[i]<0 then S:=S+a[i];
i:=i+1;
until i<=0;
Writeln(s);
end.