У МЕНЯ НЕСКОЛЬКО ЗАДАЧ! пожалуйста, помогите!!!

I)Создать массив всеми способами, вывести его на экран и в файл!(использовав все данные(операторы, процедуры), которые я написала.))
1)Для первого способа надо использовать(может понадобиться read(n,m))
Program имя;
Const nmax=10;
mmax=10;
var
a:array[1..nmax, 1..mmax] of integer;
i,j,n,m :integer;
begin
n:=3;
m:=4;
for i:=1 to n do
for j:=1 to m do
read(a[i,j]);
и надо довести эту пограмму до конца!!!Пожалуйста помогите!(n-количество строк, m-количество столбцов!)

2)Для второго способа(генератор случайных членов) надо использовать(может понадобиться read(n,m)):
Program имя;
Const nmax=10;
mmax=10;
var
a:array[1..nmax, 1..mmax] of integer;
i,j,n,m :integer;
begin
n:=3;
m:=4;
for i:=1 to n do
for j:=1 to m do
randomize
a[i,j]:=random(200)
И надо довести эту программу до конца!(n-количество строк, m-количество столбцов!)

3)Для третьего способа надо использовать(может понадобиться read(n,m)):
Program имя;
Const nmax=10;
mmax=10;
var
a:array[1..nmax, 1..mmax] of integer;
i,j,n,m :integer;
begin
n:=3;
m:=4;
for i:=1 to n do
for j:=1 to m do
a[i,j]:=i+j;
И надо довести эту программу до конца!(n-количество строк, m-количество столбцов!)

4)Для четвертого способа надо использовать(может понадобиться read(n,m)):
Program имя;
Const nmax=10;
mmax=10;
var
a:array[1..nmax, 1..mmax] of integer;
i,j,n,m :integer;
begin
n:=3;
m:=4;
for i:=1 to n do
for j:=1 to m do
a[i,j]:=i+j;
begin
assign(input, ’in.txt’);
reset(input);
read(n,m);
read(a[i,j]);
close(input);
Из элементов четвертого способа надо составить(продолжить иди кое-где изменить) программу!
Для всех четырех способов для вывода массива на экран использовать:
write(a[i,j], ’ ’);
writeln;

Для всех четырех способов для вывода массива в файл надо использовать:
Begin
Assign(output, ’ out.txt’);
Rewrite(output);

II)Найти максимальный и минимальный элемент массива.
III)Выяснить, есть ли в данном массиве данный элемент. Ответ сделать Yes или No.(можно ввести в файле).
Помогите пожалуйста!!! [Ответ]

alina многие занимаются таким за небольшую денюшку...найди людей - и будет тебе щастье... [Ответ]

помогу за $300 [Ответ]

Сообщение от Sheriff:
помогу за $300

Дороговато. Красная цена $ 100.
[Ответ]

>Красная цена $ 100
Ужас какой [Ответ]

за такую фигню 100$?
alina сколько ты сама готова заплатить? [Ответ]

эх... неужели за такое еще и деньги берут??? стоко денех мимо проплыло...

alina если еще нужны - пиши... вечерком начеркаю.. всего то пара минут воспоминаний... а вообще, самой-то не стыдно с такой ерундой на форум обращаться... что ж дальше то будет.... [Ответ]

Ниче, пусть развивает управленческие навыки Ж)) [Ответ]

Сообщение от Yandex:
Ниче, пусть развивает управленческие навыки Ж))

тогда уж коммерческие тут уже и торговаться начали... [Ответ]

Сообщение от Безумная:
а вообще, самой-то не стыдно с такой ерундой на форум обращаться... что ж дальше то будет....

Согласен! Дорогая alina, ты не с ФКН? [Ответ]

ох уж эта жажда халявы. [Ответ]

Пипец, за 10 строчек простейшего кода на Паскале... 100 баксов. жесть. [Ответ]

Сообщение от ОсТроУхий:
Пипец, за 10 строчек простейшего кода на Паскале... 100 баксов. жесть.

Не за программу, а за тупость заказывающего. [Ответ]

Xtnshtcgjkjdbyjq
Ты сразу родился умным и разбирающимся в языках программирования? По-моему подраздел, создан не только для обмена опытом в области кодинга, но и для помощи чайникам...
опускать и глумится - дело простое. [Ответ]

Если в Delphi-ях покатит, то помочь труда не составит, но только в понедельник. А на Pascal-е минут на 5 дольше будет, мне его чуть подвспомнить надо. [Ответ]

Const nmax=10;
mmax=10;
var
a:array[1..nmax, 1..mmax] of integer;
i,j,n,m :integer;
begin

n:=3;
m:=4;
Assign(output, ’ out.txt’);
Rewrite(output);
for i:=1 to n do
begin
for j:=1 to m do
begin
write('Введите элемент массива ',i,' строки и',j,' столбца');
read(a[i,j]);
write(output,a[i,j]);
end;
writeln;
end;
потом делаешь обычный цикл на вывод инфы, она у тебя уже в массиве и в файле... откуда хочешь оттуда и читаешь.


это было к первому случаю...

Const nmax=10;
mmax=10;
var
a:array[1..nmax, 1..mmax] of integer;
i,j,n,m :integer;
begin
randomize;
Assign(output, ’ out.txt’);
Rewrite(output);
n:=3;
m:=4;
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(200)
Write(a[i,j]);
write(output,a[i,j]);
end;
writeln;
end;
тоже самое - простеший цикл на вывод по числу элементов в массиве...

Третье и четвертое - по аналогии... тут все просто - писать не охота, честно говоря... да и боюсь чего-нибудь из С++ вставить =)) [Ответ]

На ходу писал в нескольких местах простебся - не туда вставил... но это мелочи... =)) в первый раз можно writeln - не писать. =) И еще парочка... [Ответ]