2 программки (массивы) на паскале АВС

[Кутяшка]

Помогите написать программы с процедурами!
Время до завтра 12:00.
За каждую программу 200 рублей.

1. Составьте программу, выясняющую, равен ли наименьший элемент двухмерного массива А(N,M) половине максимального.

2. Составьте программу подсчета числа положительных элементов одномерного массива А(N), встречающихся в этом массиве более двух раз.

[Serge_Bliznykov]

первая задача:

http://files.mail.ru/9EA6FB1A228D442A97726FD9CB9BCBAD

https://ideone.com/I2ZbBL

пойдёт?

[Кутяшка]

а если самой матрицу строить, а не со случ числами???

[Serge_Bliznykov]

дык, изменяете (или добавляете) всего одну процедуру - там, где заполняется случ.числами.
в ней читаете числа с помощью Read()/ReadLn()

А можно массив задать константами, прямо в коде программы.

А ещё можно подготовить файл с данными и программно читать из файла в массив.

Вариантов, как видите, много разных...

[Кутяшка]

в чем ошибка то??
var i, j : integer;
begin
MaxElement := A[1,1];
MinElement := A[1,1];

for i:=1 to N do
for j:=1 to M do begin
if A[i,j] > MaxElement then MaxElement := A[i,j];
if A[i,j] < MinElement then MinElement := A[i,j];
end;
end;

var
Mas : TMas;
max, min : integer;
Begin {начало основной программы}


write('Введите размер массива: '); readln(n,m);
writeln('Введите элементы массива');
for i := 1 to n do begin
for j := 1 to m do begin
writeln('Введите элемент №', i, ' из ', n,'Введите элемент №',j, ' из ',m);
readln(a[i],a[j]);
FindMinMax(Mas, max, min);

WriteLn('max= ', max,' min = ', min);

if min = (max div 2)
then WriteLn('YES! (minimal equals half of maximal!)')
else WriteLn('NOT! (minimal NOT equals half of maximal!)');

end.

[Кутяшка]

Ладно, уже сама подобрала))))
Куда деньги то перечислять???

[jenyavdovin]

Могу написать без проблем

skype: rfhfcerf
vk: http://vk.com/id24348165

Отзывы: http://www.cyberforum.ru/freelancers-offers/thread288373-page5.html

[Serge_Bliznykov]

Кутяшка, написал Вам сообщение, проверьте личку...