Автор: ZVER 12.10.2008 18:47
- Создать одномерный массив A[1..N]. Все его элементы,
не равные нулю, переписать, сохраняя их порядок, в начало массива, а нулевые значения- в конец массива. Новый массив не заводить. - В матрице A[1..N,1..M] вычислить сумму элементов, находящихся правее столбца с максимальным элементом матрицы, и среднее арифметическое элементов, расположенных ниже строки с максимальным элементом матрицы.
1-ю задачку легче решить через цикл While. Во всех задачках массивы задаются randomize. Помогите пожалуйста! Спасибо большое!
Автор: volvo 12.10.2008 19:03
Цитата
1-ю задачку легче решить через цикл While.
Кто сказал? Тут как раз решение через While и через For совершенно одинаковое по сложности... Просто пройти по всему массиву, если элемент a(i) нулевой - то увеличить число нулей, если нет - значит перенести a(i) в позицию a(i - count), где
count - число нулей в массиве на данный момент... А потом, по окончании основного цикла, пробежаться по
count последних элементов и обнулить их...
Как заполнять массивы случайными значениями, см. в FAQ-е
Вторую задачу сначала разбей на подзадачи, не пытайся сделать все сразу...
Автор: Unconnected 12.10.2008 20:18
К задаче 2,только нет исключения для одинаковых наибольших элементов матрицы.
Код
Program matr;
uses crt;
const N=5;M=5;
var mas:array[1..N,1..M] of integer;
a,b,c,d,e,x,z:integer;
y:real;
begin
randomize;
clrscr;
for a:=1 to n do
for b:=1 to m do
begin
mas[a,b]:=random(20);
end;
for a:=1 to n do
begin
for b:=1 to m do
begin
write(mas[a,b],' ');
end;
writeln;
end;
c:=mas[1,1];
for a:=1 to n do
for b:=1 to m do
begin
if c<mas[a,b] then c:=mas[a,b];
end;
for a:=1 to n do
for b:=1 to m do
begin
if c=mas[a,b] then begin
d:=b;
e:=a;
end;
end;
for a:=1 to n do
for b:=d+1 to m do
begin
x:=x+mas[a,b];
end;
for a:=e+1 to n do
z:=0;
for b:=1 to m do
begin
y:=y+mas[a,b];
z:=z+1;
end;
y:=y/z;
writeln('Сумма-',x);
writeln('Среднее арифметическое-',y:3:3);
readln;
end.
Автор: Гость 2.12.2012 1:14
пожалуйста решите задачку:
обнулить все строки двумерного массива A(I..m, I..n) содержащее элемент из интервала(a..b) ) все нулевые строки сдвинуть к началу массива, сохраняя их порядок расположения в массиве. в первой строке входного файла AmnBk.in записаны натуральные числа m и n. во второй стоке файла находятся a и b. в следующих m строках записаны по n целых чисел.
В первую строку выходного файла AmnBk.out записать число не нулевых строк преобразованного массива, а следующих m строках этого файла записаны по n целых чисел - строки преобразованного массива. все числа находятся в диапазоне от 0...10 в 9 степени