⇢ ЮК
Юля Кондратьева
напишаите прогу плиз паскаль турбо
ОS
Ольга Selivanova
каково материальное вознаграждение за решение данной задачи?
begin
if оплатил then получил исходник
else пиши сам
end.
ЕМ
Елена Москвина
Олег!
Такой прекрасный парень.
Запросто помогу, когда ТЫ САМ пришлешь мне твой вариант.
На ошибках УЧАТСЯ.
Ты НАПИШИ, а я С УДОВОЛЬСТВИЕМ ПОДПРАВЛЮ.
Для начала описываешь переменные
a,b: ARRAY[1..4,1..4) OF REAL; - это входной масив до перестановок и выходной после.
c:array[1..4] of real: - это промежуточный столбец для перестановок
max,min, pro, sum: REAL;
I,IJ,JmaxJmin: INTEGER; (i - строки J - столбцы)
begin
-вводим числа
a[1,1]:=9.2:
....
a[4.4]:=3.5:
-теперь подготавливаем поиск максимума и минимума. Это смешно, но пишем, что
MIN:=1000000000;
MAX:=-1000000000;
И теперь ищем эти числа не забывая запомнить НОМЕР СТОЛБЦА
Цикл по столбцам J
Цикл по строкам I
Условие
Если a[i,j]
A[I,Jmin]:=A[I,Jmax]: поменяли минимум на максимум
A[I,Jmax]:=c: поменяли максимум на минимум
А уж вычислить произведение строк или сумму думаю, что ты и сам сможешь.
ТЫ ВЕДЬ НЕ БЛОНДИНКА.
А ЕСЛИ НЕ ТРАДИЦИОННОЙ ОРИЕНТАЦИИ, ТО ПИШИ. помогу.
Похожие вопросы