1) 1)3<span>•9
2)6</span><span>•7
3)64:8
4)27+42
5)69+8
</span>
Код:
for i:=2 to n-1 do if (a[i-1]<a[i]) and (a[i]>a[i+1]) then writeln(i,<span>' element');
(Источник:</span><span>http://www.programmersforum.ru)
</span>
const T=50;
var a: array [1..T,1..T] of integer;
i,j,n,m:integer;
begin
write('Введите n: ');
readln(n);
write('Введите m: ');
readln(m);
for i:=1 to n do
for j:=1 to m do readln(a[i,j]);
for i:=1 to n do
for j:=1 to m do if i=j then a[i,j]:=a[i,j]*2;
for i:=1 to n do
begin
for j:=1 to m do write(a[i,j],' ');
writeln;
end;
end.