Форум программистов
 
О проблемах с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail


Ответ
 
Опции темы
Старый 16.06.2008, 18:19   #1
ProWinD
Новичок
Джуниор
 
Регистрация: 16.06.2008
Сообщений: 2
Восклицание Дан двумерный массив случайных чисел. Построить одномерный из исходного, выбрав из него все числа кратные

Вот такая вот задачка:

Дан двумерный массив случайных чисел. Построить одномерный из исходного, выбрав из него все числа кратные 3.

Заранее спасибо
ProWinD вне форума Ответить с цитированием
Старый 16.06.2008, 18:36   #2
puporev
Старожил
 
Регистрация: 13.10.2007
Сообщений: 2,740
По умолчанию

Задача примитивная, думаю разберешся.
Код:
uses crt;
var a:array[1..20,1..20] of integer;
    b:array[1..100] of integer;
    n,m,i,j,k:integer;
begin
clrscr;
write('Kolichestvo strok n=');readln(n);
write('Kolichestvo stolbcov m=');readln(m);
randomize;
k:=0;
writeln('Matrica:');
for i:=1 to n do
  begin
    for j:=1 to m do
      begin
        a[i,j]:=random(30);
        if a[i,j] mod 3=0 then
          begin
            k:=k+1;
            b[k]:=a[i,j];
          end;
        write(a[i,j]:4);
      end;
    writeln;
  end;
writeln;
writeln('Massiv:');
for i:=1 to k do
write(b[i],' ');
readln
end.
puporev вне форума Ответить с цитированием
Старый 16.06.2008, 19:12   #3
ProWinD
Новичок
Джуниор
 
Регистрация: 16.06.2008
Сообщений: 2
По умолчанию

Спасибо огромное !!! Респект
ProWinD вне форума Ответить с цитированием
Ответ
Купить рекламу на форуме 20000 рублей в месяц
Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Паскаль. найти все числа кратные трем и посчитать их количество __k1ll3r__ Помощь студентам 6 02.04.2008 15:37
Построить треугольник по координатам его вершин и описать около него окружность. Lion Помощь студентам 22 01.04.2008 22:37
Построить одномерный массив Alter Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 7 29.03.2008 01:42
С++ Создать класс содержащий 3х-мерный массив int'ов, заполнять с помощью генератора случайных чисел vipER Помощь студентам 1 22.09.2007 21:08
Кратные числа ара Помощь студентам 1 19.04.2007 18:34


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS