Масивы. Pascal =(

[rishikesh]

Ребят, помогите с масивами а то у меня завал полный =(


Задание 1. Инициализация массива и вывода его на экран.

Заполнить массив первыми 12 членами последовательности Фиббоначи.


Задание 2. Составить программу нахождения параметров, характеризующих одномерные массивы.

Вычислить произведение положительных элементов массива.


Задача 3. Составить программу обработки одномерных массивов.

В заданном массиве Т (8) на месте отрицательных элементов поставить нули, на месте положительных - их квадраты.


Задача 4. Обработка двумерных массивов

Написать программу, которая вычисляет произведение парных элементов двумерного массива, элементы которого генерируются случайным образом.


Задача 5. Обработка двумерных массивов

Создайте квадратную матрицу, значение каждого элемента равное сумме номера строки и столбца, на пересечении которых он находится, а также вычислите сумму каждого столбца.


Задача 6. Дано целочисленные прямоугольная матрица.

Подсчитать сумму элементов в тех строках, которые не содержат отрицательных элементов.

[ROMA2PVT]

-I-

var
a:array [1..100] of integer;
i,n:integer;
begin
a[1]:=1;
a[2]:=0;
for i:=3 to 13 do
a[i]:=a[i-1]+a[i-2];
for i:=2 to 13 do
write(a[i],' ');
writeln;
end.

-II-

Uses
   Crt;
var
a:array [1..20] of integer;
i,n,pr:integer;
begin
clrscr;
pr:=1;
randomize;
write('Введите количество элементов: ');
readln(n);
for i:=1 to n do
begin
a[i]:=random(10)-5;
write(a[i],' ');
if a[i]>0 then
begin
pr:=pr*a[i];
end;
end;
writeln;
writeln('Произведение положительных элементов массива=',pr);
readkey;
end.

-III-

Uses
   Crt;
Const
n=8;
var
a:array [1..n] of integer;
i:integer;
begin
clrscr;
randomize;
writeln('Исходный массив: ');
for i:=1 to n do
begin
a[i]:=random(10)-5;
write(a[i],' ');
if a[i]<0 then
begin
a[i]:=0;
end;
if a[i]>0 then
begin
a[i]:=sqr(a[i]);
end;
end;
writeln;
writeln('Результирующий массив: ');
for i:=1 to n do
begin
write(a[i],' ');
end;
readkey;
end.

-IV-

Uses
   Crt;
var
a:array [1..20,1..20] of integer;
i,j,n,m,pr:integer;
begin
clrscr;
pr:=1;
randomize;
write('Введите количество строк: ');
readln(n);
write('Введите количество столбцов: ');
readln(m);
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(10)-5;
write(a[i,j]:3,' ');
if (a[i,j] mod 2=0) and ((a[i,j]>0) or (a[i,j]<0)) then
begin
pr:=pr*a[i,j];
end;
end;
writeln;
end;
writeln;
writeln('Произведение элементов массива=',pr);
readkey;
end.

-VI-

Uses
   CRT;
var
  mas:array[1..20,1..20] of integer;
  i,j,o,n,m,sum:integer;
begin
Clrscr;
randomize;
write('Введите количество строк: ');
readln(n);
write('Введите количество столбцов: ');
readln(m);
for i:=1 to n do
begin
for j:=1 to m do
begin
mas[i,j]:=random(10)-5;
write(mas[i,j]:4);
end;
writeln;
end;
writeln;
for i:=1 to n do
begin
sum:=0;
o:=0;
for j:=1 to m do
begin
sum:=sum+mas[i,j];
if mas[i,j]<0 then o:=1;
end;
if o=0 then
writeln('Сумма элементов ',i,'-й',' строки:=',sum);
end;
readkey;
end.

-V-

Uses
   CRT;
var
  mas:array[1..20,1..20] of integer;
  i,j,n,m,sum:integer;
begin
Clrscr;
randomize;
write('Введите количество строк: ');
readln(n);
write('Введите количество столбцов: ');
readln(m);
for i:=1 to n do
begin
for j:=1 to m do
begin
mas[i,j]:=i+j;
write(mas[i,j]:4);
end;
writeln;
end;
writeln;
for j:=1 to m do
begin
sum:=0;
for i:=1 to n do
sum:=sum+mas[i,j];
writeln('Сумма элементов ',j,'-го',' столбца:=',sum);
end;
readkey;
end.

P.S:Чувствую пора заканчивать бесплатно код писать.

[rishikesh]

Сообщение от ROMA2PVT

-I-

var
a:array [1..100] of integer;
i,n:integer;
begin
a[1]:=1;
a[2]:=0;
for i:=3 to 13 do
a[i]:=a[i-1]+a[i-2];
for i:=2 to 13 do
write(a[i],' ');
writeln;
end.

Спасибо большое, Цём тебе =)