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.
C1=$A1+B$1=135
C2=$A2+B$1=70
C3=$A3+B$1=145
D1=$A1+C$1=245
D2=$A2+C$1=180
D3=$A3+C$1=255
1) var
i,n:longint;
a:array [1..1000] of longint;
begin
readln(n);
for i:=1 to n do
begin
a[i]:=sqr(2*i+1);
write(a[i],' ');
end;
end.
2) Условие мне не понятно
3)Ща будет
Ответ:
1)источник:задача на доске приемник:доска(вроде) носитель:ученик
вот например так надо делать
<em>// PascalABC.NET 3.3, сборка 1555 от 21.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var x:=ReadInteger('Введите трехзначное число:');
var (a,b,c):=(x div 100,x div 10 mod 10,x mod 10);
if b+c<>0 then
if x mod (10*b+c)=0 then begin
Writeln('Вычеркнуть первую цифру (',a,')');
Exit
end
else
if a+c<>0 then
if x mod (10*a+c)=0 then begin
Writeln('Вычеркнуть вторую цифру (',b,')');
Exit
end
else
if a+b<>0 then
if x mod (10*a+b)=0 then begin
Writeln('Вычеркнуть третью цифру (',c,')');
Exit
end;
Writeln('Нет решения')
end.
