sandzhi

Пожалуйста помогите составить блок схему
даны след-е прог-мы

program lr41;
const n=15;
var a:array [1..n]of integer;
i:integer;
begin
writeln ('massiv a:');
for i:=1 to n do
begin a[i]:=i*i*i;
write(a[i]:5);
end;
end.

program lr43;
const n=7;
var a:array [1..n, 1..n] of integer;i,j:integer;
begin
for j:=1 to n do
for i:=1 to n do
if j mod 2=0 then a[i,j]:=0
else a[i,j]:=j;
for i:=1 to n do
begin
for j:=1 to n do
write (a[i,j]:3);
writeln;
end;
end.


program lr44;
const n=7;
var a:array [1..n, 1..n] of integer;i,j,x:integer;
begin
writeln ('ishodnuy massiv');
for i:=1 to n do
begin
for j:=1 to n do begin
a[i,j]:= random (30);
write (a[i,j]:3);end;
writeln;
end;
For i:=1 to n div 2 do
for j:=1 to n do begin
x:=a[i,j]; a[i,j]:=a[n+1-i,j];a[n+1-i,j]:=x end;
writeln ('posle perestanovki');
for i:=1 to n do
begin
for j:=1 to n do
write (a[i,j]:3);
writeln;
end;
end.
пожалуйста выручайте!!!!!!!!!!!!!!!!!!!!!!!!!!
я в прог-ии очень плохо разбираюсь!!!!!!!!!

sandzhi

оёёёёёёёёёёёёёёёёёё забыл самое основное!!!!!!!!!!!
4,1
Заполните одномерный массив из N элементов следующим образом

номера эл-в массива 1 2 3 4 5 6 7 ........
Значения эл-в массива 1 8 27 64 125 216 343 ........

4,3
Заполните двумерный массив размерности NxN следующим образом.

1 0 3 0 5 ...
1 0 3 0 5 ...
1 0 3 0 5 ...
1 0 3 0 5 ...
1 0 3 0 5 ...
... ... ... ... ... ...

4,4 Заполните Случайным образом двумерный массив размерности n x n . Обменяйте местами элементы следующих строк:

1) 1-я строка - n-я строка
2) 2-я строка - (n-1)-я строка
3) 3-я строка - (n-2)-я строка
4) ...

sandzhi

что ни кто не поможет? хотябы одну!!!! а то сесия ..................

AlexZir

А самостоятельно подумать не судьба? Как работать будете в дальнейшем?

__________________
Убить всех человеков!