Помогите написать программы на языке Паскаль

[НастяКозлова]

Помогите написать программы на языке Паскаль

Помогите пожалуйста написать программы на языке Паскаль:
1. Напишите программу ввода массива и определения (по значению и по индексу) тех элементов массива,разность абсолют. величин которых имеет наибольшее значение.
2. Напишите программу для ввода элементов двух квадратных матриц, умножения матриц и вывода результирующей матрицы.

 

[Vladimir_S]

разность абсолют. величин которых

Вероятно, абсолютная величина разности абсолютных величин - или как?

 

[kris_kaif]

именно,пишу от другого пользователя,так как от своего имени не удается отправить сообщение

 

[Vladimir_S]

от своего имени не удается отправить сообщение

Это еще почему? В чем проблемы?

 

[kris_kaif]

когда хочу отправить сообщение,выскакивает окно " Защита от спама: ссылки разрешено публиковать после 20 сообщений на форуме." хотя никаких ссылок не использую

 

[Vladimir_S]

Ну ладно, какой-то сбой.
Но, возвращаясь к задаче, хотелось бы уточнить, как вычисляются эти разности?
D = ||a|-|a[j]|?
D = |a - a[j]|?
Конкретно: пусть у нас a=-20, a[j]=+3. Чему равна разность, максимальное значение которой нужно искать? 23? 17?
Проясните этот момент, пожалуйста.

 

[kris_kaif]

подскажите почему выскакивает эта ссылка?
честно говоря сама не поняла,но может быть 23

 

[Vladimir_S]

подскажите почему выскакивает эта ссылка?

Не знаю. Но обнаружил, что в Сети многие на нее жалуются. Скорее всего, дрянь какую-то подцепили.
И да, впредь НАСТОЯТЕЛЬНО не рекомендую удалять модераторские замечания. Модераторы - они народ обидчивый.

 

[kris_kaif]

странно,ничего не удаляла

 

[Vladimir_S]

Ладно, как вариант:

Const
 Nmax=99;
Var
 N,i,j,k,q1,q2:integer;
 D:real;
 A:Array[1..Nmax] of real;
Begin
 Write('Number of elements = ');
 Readln(N);
 Writeln('Input: 0 - keyboard');
 Writeln('       1 - random');
 Readln(k);
 If k=0 then
  begin
   for i:=1 to N do
    begin
     write('A[',i:2,']= ');
     readln(A[i]);
    end;
  end
 else
  begin
   Randomize;
   for i:=1 to N do A[i]:=Random*100-10.0;
  end;
 writeln;
 writeln;
 for i:=1 to N do write(A[i]:8:3);
 writeln;
 writeln;
 D:=0;
 for i:=1 to N-1 do
  for j:=i+1 to N do
   if Abs(A[i]-A[j])>D then
    begin
     D:=Abs(A[i]-A[j]);
     q1:=i;
     q2:=j;
    end;
 Writeln('Dmax = ',D:0:3);
 Writeln('A[',q1:2,'] = ',A[q1]:0:3);
 Writeln('A[',q2:2,'] = ',A[q2]:0:3);
 Readln
End.

 

[kris_kaif]

спасибо огромное!
а насчет 2?

 

[Vladimir_S]

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

P.S. А почему бы Вам не попробовать хоть что-то сделать самостоятельно, например, задачку 2? А? Уж поверьте - оно и полезно, и интересно, и очень приятно.

P.P.S. И НАСТОЯТЕЛЬНО рекомендую безотлагательно заняться чисткой компьютера, пока Администрация нашего форума не удалила Ваш аккаунт вместе со всеми сообщениями. Потому что нам тут появление подобных ссылок ни к чему.
Начните со сброса (переустановки) браузера. Проверьте, не установилось ли без Вашего ведома расширение (или плагин)-паразит, и если найдете - удалите.