[паскаль!]

[Tifa]

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

[Вадим Мошев]

найти сумму этих элементов и наимбольшую суму разделить на наименьшую

А что это значит?

[Tifa]

Ну водиш как бы цифры в масиве ищещ в масиве цифры которые деляца на 3 и 2 ....например там 6 9 (оди деляца на 3)=6+9 =15(и есть сумма) 4 6(на 2 делица)=4+6=10 и наибольшую суму разделить на наименьшую (наибольшая у нас в даном случае 15\10)=много )!

[Вадим Мошев]

Всё равно непонятно. Можно посмотреть задание в оригинале?

1. Я так полагаю надо найти все числа, которые делятся хотя бы на одно из чисел (3 и 2)?
2. Если первый пукнт верный, то смотрим дальше:
например элемент массива a[i,j] = 6. Он чётный и делится на три. Я пробегусь по массиву и найду все такие числа (которые либо чётные либо кратные 2). Найду их сумму. Это можно.

Но мне всё равно непонятно:

например там 6 9 (оди деляца на 3)=6+9 =15(и есть сумма)

Это что за пары чисел?

[Tifa]

вопшем смари например я вожу
3 6 7 3 8 9
4 6 3 2 1 7
5 9 3 4 5 6
в этом наборе водимых нами чисел надо найти все числа которые деляца и на 2 и на 3 потом сложить (допустим в этой матрице числа деляца на 2 (6 8
4 2 4 6)складываем их =30 (и ищем которые деляца на 3(3 6 3 9 6 3 9 3 6)=48 и получаеца что 48 мы должны разделить на 30 поскольну сумма 48 больша !...вот и все)(m)(^_-)(m) )))

[Вадим Мошев]

Задача лёгкая, но объёмная.

Вот код:

program xxx;
uses crt;
var A: array[1..10, 1..10] of integer;
    i,j,k,s2,s3, m, n, p: integer;
    B2, B3 : array[1..100] of integer;
    r: real;
    t: boolean;

begin
t:=true;
clrscr;
writeln;
write('Kol-vo strok: '); read(n);
write('Kol-vo stolbov: '); read(m);
writeln;


for i:=1 to n do
              for j:=1 to m do
                       begin
                        write('A[', i, ',',j,']='); read(a[i,j]);
                       end;

writeln;

k:=0; p:=0;
for i:=1 to n do
              for j:=1 to m do
                            begin
                               if not odd(a[i,j]) then begin
                                                       inc(k);
                                                       b2[k]:=a[i,j];
                                                       end;

                               if a[i,j] mod 3 = 0 then begin
                                                       inc(p);
                                                       b3[p]:=a[i,j];
                                                       end;

                            end;


s2:=0;
s3:=0;

writeLn('Chisla delytsa na 2:');

for i:=1 to k do writeln(b2[i]);
writeln;

writeLn('Chisla delytsa na 3:');

for i:=1 to p do writeln(b3[i]);
writeln;

{------------------}

for i:=1 to k do s2:=s2 + b2[i];

writeln('Summa delyashihsa na 2: ', s2);

for i:=1 to p do s3:=s3 + b3[i];

writeln('Summa delyashihsa na 3: ', s3);
writeln;



if s3 > s2 then
               if s2 <> 0 then r:=s3/s2
                          else begin writeln('Div by 0'); t:=false; end

          else
               if s3 <> 0 then r:=s2/s3
                          else begin writeln('Div by 0'); t:=false; end;

if t then writeLn('Chastnoe = ', r:5:5);

readkey;

end.