Const n = 5; m = 5; var a:array[1..n,1..m] of integer; i,j,s:integer; begin //Для теста заполним массив сл.числами for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(21)-10; write(a[i,j]:4); end; writeln;writeln; end; //сумма всех элементов массива for i:=1 to n do for j:=1 to m do s:=s+a[i,j]; writeln('сумма всех элементов массива: ',s); //сумма каждой строки for i:=1 to n do begin s:=0; for j:=1 to m do begin s:=s+a[i,j]; end; writeln ('Строка: ',i,' сумма:',s); end; end.
// с циклом while var s,i:integer; begin i:=100; while i<=999 do begin if i mod 77 = 0 then s:=s+i; i:=i+1; end; writeln('Сумма трехзначных кратных 77: ',s); end.
мы просим пользователя ввести какое то А, и какое то В.
После чего мы в А записываем:
А = То число что ввёл пользователь + второе число что ввёл пользователь
у В мы записываем
В = берём то она, что у нас получилось чуть выше и минус В которое ввёл пользователь.
Тут опять
А = то А, что было выше - В которое мы тоже получили чуть выше.
И выводим эти числа
Пример
Пользователь ввёл что А = 4, В = 3
Значит
А = 4+3 = 7
В = берём нашу 7 и - 3 = 4
А = 7(наше А, которое мы посчитали в 1 примере) - 4(наше В, которое выше) = 3
Выводим
А = 3
В = 4