program program1;
var
i,j:integer;
y:array [1..3,1..3] of integer;
begin
for i:=1 to 3 do
for j:=1 to 3 do
begin
write('y[',i,j,']=');
readln(y[i,j]);
end;
for i:=1 to 3 do
for j:=1 to 3 do
write(y[i,j],' ');
writeln;
for i:=1 to 3 do
for j:=1 to 3 do
y[i,j]:=y[i,j]*3;
for i:=1 to 3 do
for j:=1 to 3 do
write(y[i,j],' ');
end.

Подправьте пожалуйста код. Можете скинуть блок-схему этой задачи, а то времени нет. Завтра утром зачет!!!

Добавлено (29.04.2008, 19:35)
---------------------------------------------
Введите с клавиатуры в массив X пять целочисленных значений, вывести в одну строку через запятую. Вычислить для массива среднеарифметическое и каждый элемент матрицы стоящий на четных местах умножить на 2. Вывести результат.

program program2;
var
A:real;
i,S:integer;
X:array [1..5] of integer;
begin
for i:=1 to 5 do
begin
write('X[',i,']=');
readln(X[i]);
end;
writeln;
for i:=1 to 5 do
write(X[i],',');
writeln;
for i:=1 to 5 do
S:=X[i]+X[i];
A:=S/5;
writeln('Среднеарифметическое равно A=',A);
X[2]:=X[2]*2;
X[4]:=X[4]*2;
write(X[2],' ');
write(X[4],' ');
end.

Добавлено (29.04.2008, 20:45)
---------------------------------------------
Помогите срочно нужна ваша помощь!!! Завтра зачет!!! Можете поправить код задач, сделать блок-схемы в Microsoft Word, оформить ее. Пожалуйста, вы моя последняя надежда!!! Заранее спасибо!!! Вот ссылка http://ifolder.ru/6359378