Эта автоматически тебе всё сделает. Var i, n, max : Integer; a : array [1..30] of Integer; begin for i := 1 to 30 do begin Write('a[', i, ']='); a[i]:=i+1; if max<a[i] then max:=a[i]; writeln(a[i]); end; writeln('Максимальный элемент равен: ',max); end.
Если нужно будет ввести последовательность с клавиатуры, то вот: Var i, n, max : Integer; a : array [1..30] of Integer; begin for i := 1 to 30 do begin Write('a[', i, ']='); ReadLn (a[i]); if max<a[i] then max:=a[i]; end; writeln('Максимальный элемент равен: ',max); end.
Program chik; var a:array[1..100,1..100]of integer; n,m,i,j:integer; begin readln(n,m); for i:=1 to n do for j:=1 to m do read(a[i,j]); for i:=1 to n do for j:=m downto 1 do if(a[i,j] mod 2=0)then a[i,j]:=a[i,j]+a[i,1]; for i:=1 to n do begin for j:=1 to m do write(a[i,j],' '); writeln; end; end. n,m-размеры матрицы a[i,j]-элементы матрицы пример n=3 m=3 1 2 3 4 5 6 7 8 9
вывод: 1 3 3 8 5 10 7 15 9 a[1,2]:=a[1,2]+a[1,1]=2+1=3 a[2,1]:=a[2,1]+a[2,1]=4+4=8 .. но чтобы первый элемент строки не изменился перед тем как нам нужно будет проверит другие элементы поэтому for j:=m downto 1 делаем т.е с конца строки проверяем чтобы первый эл.строки матрицы не изменилась Надеюсь всё понятно
Var i, n, max : Integer;
a : array [1..30] of Integer;
begin
for i := 1 to 30 do
begin
Write('a[', i, ']=');
a[i]:=i+1;
if max<a[i] then max:=a[i];
writeln(a[i]);
end;
writeln('Максимальный элемент равен: ',max);
end.
Если нужно будет ввести последовательность с клавиатуры, то вот:
Var i, n, max : Integer;
a : array [1..30] of Integer;
begin
for i := 1 to 30 do
begin
Write('a[', i, ']=');
ReadLn (a[i]);
if max<a[i] then max:=a[i];
end;
writeln('Максимальный элемент равен: ',max);
end.