Помогите срочно кто может по двумерному массиву, двуерные массивы Опции

[ainp]

1. даны целые чисала А1, А2, А3...Аn наименьший член последовательности А1, А2, А3...Аn заменить целой частью среднего арифметического всех членов, остальные члены оставить без изменения . Если в последовательности несколько членов со значением min (А1, А2, А3...Аn ), то заменить последний по порядку.

2. var k: integer;
c: array [1..n, 1..m] of char;
определить к-количество различных элементов масссива с (т. е. повторяющиеся элементы считать один раз)

3. Дана (прочно) вещественная матрица размером NxM. перераставляя ее строки и столбцы добиться того чтобы наибольший элемент (один из них) оказался в верхнем левом углу

[Unknown]

1. даны целые чисала А1, А2, А3...Аn наименьший член последовательности А1, А2, А3...Аn заменить целой частью среднего арифметического всех членов, остальные члены оставить без изменения . Если в последовательности несколько членов со значением min (А1, А2, А3...Аn ), то заменить последний по порядку.

uses crt;
var a:array[1..100] of integer; sr,i,n,min:integer;
begin
randomize;
clrscr;
writeln;
write('Введите количество элементов в последовательности: '); readln(n);
writeln;
for i:=1 to n do
     begin
     a[i]:=random(10);
     write(a[i],' ');
     sr:=sr+a[i]
     end;
sr:=sr div n;
min:=1;
for i:=2 to n do
     if a[i]<=a[min] then min:=i;
a[min]:=sr;
writeln;
for i:=1 to n do
write(a[i],' ');
writeln;
readkey
end.

Сообщение отредактировано: volvo - 3.11.2006 20:39