Дан массив целых чисел. Найти сумму элементов массива, ...
Дан массив целых чисел. Найти сумму элементов массива, принадлежащих промежутку от g до t, вводимых с клавиатуры.
Есть ответ
18.12.2022
114
Ответ
Program prim;
Var A:array[1..10] of integer;
i,N,S:integer;
begin
Writeln('Ввод N');
Readln(N);
For i:=1 to N do
begin
Writeln('Ввод ',i, ' эл.массива');
Readln(A[i]);
end;
S:=0;
For i:=1 to N do
S:=S+A[i];
Writeln('S = ', S);
Readln;
end.
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
18.12.2022
