Паскаль, задачки - строки, подпрограммы

[pomoshnic]

И вам спасибо за отзыв и понимание

[pomoshnic]

5)
A.

Var j:integer;
A:array[1..20] of integer;
Procedure mxd;
Var maxi,i:integer;
Begin
Maxi:=1;
For i:=1 to 20 do if a[i]>a[maxi] then maxi:=i;
A[maxi]:=0;
End;
Begin
For j:=1 to 20 do begin
Write('Vvedite a[',j,']: '); readln(a[j]);
End;
Mxd;
For j:=1 to 20 do writeln('a[',j,']=',a[j]);
Readln
End.

[Меф]

К сожалению не работает, вот что пишет : Vvedite a[0]:
»*Ошибка: 0 - выход за границы диапазона изменения индекса 1..20 (Задача 5.pas, строка 12)

[pomoshnic]

Вроди исправил, проверь.

[Меф]

проверил, работает как нада

[BERT]

решите пожалуйста задачу по паскалю

из матрицы А[5,5]получить новую матрицу В[6,5] в которой первые 5 строк и 5 столбцов будут те же, что и в матрице А[5,5],а элементы 6 строки =суммам элементов соответствующих столбцов

[pomoshnic]

Var a:array[1..6,1..5] of integer;
S,i,j:integer;
Begin
Randomize;
For i:=1 to 5 do
For j:=1 to 5 do
A[j,i]:=Random(200)-100;
For i:=1 to 5 do
Begin
S:=0;
For j:=1 to 5 do
Inc(S,a[j,i]);
A[6,i]:=s;
End;
For i:=1 to 5 do
Begin
For j:=1 to 6 do
Write(a[j,i]:4
Writeln(#10,#13);
End;
Readln;
End.

[Меф]

жаль мои не доконца сделал

[Меф]

все равно большое спасибо