Var a,b,c,sum:integer;
begin
readln(a,b);
sum:=0; inc(a); c:=0;
repeat
sum:=sum+b;
inc(c);
until c=a;
sum:=sum-b;
writeln(sum);
end.
RFV,EP RE,HBR ZRJHM
DFDASD ASD ASD ASDAS DASD ASD
Эта программа ищет в массиве элементы, имеющие противоположный знак с предыдущими
Как дано в примере - выведет в качестве места смены знака 9, 8-й элемент отрицателен, девятый положителен.
Const
n = 10;
var
a: array[1..n, 1..n] of integer;
i, j, k, s: integer;
begin
Writeln('Сгенерированная матрица');
for i := 1 to n do
begin
for j := 1 to n do
begin
a[i, j] := abs(n - i - j + 1);
Write(a[i, j]:2)
end;
Writeln
end;
Write('Введите номер столбца (1-10): ');
Readln(k);
if not (k in [1..10]) then Writeln('Столбца с таким номером не существует')
else begin
s := 0;
for j := 1 to n do s := s + a[k, j];
Writeln('Сумма элементов по столбцу ', k, ' равна ', s)
end
end.
Тестовое решение:
Сгенерированная матрица
9 8 7 6 5 4 3 2 1 0
8 7 6 5 4 3 2 1 0 1
7 6 5 4 3 2 1 0 1 2
6 5 4 3 2 1 0 1 2 3
5 4 3 2 1 0 1 2 3 4
4 3 2 1 0 1 2 3 4 5
3 2 1 0 1 2 3 4 5 6
2 1 0 1 2 3 4 5 6 7
1 0 1 2 3 4 5 6 7 8
0 1 2 3 4 5 6 7 8 9
Введите номер столбца (1-10): 8
Сумма элементов по столбцу 8 равна 31