Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 08.06.2010
Сообщений: 5
1

массивы

24.06.2010, 12:55. Просмотров 391. Ответов 4
Метки нет (Все метки)


В двумерном массиве произвольных чисел найти четные элементы и вывести их как одномерный массив

подскажите
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.06.2010, 12:55
Ответы с готовыми решениями:

Даны массивы а и b. Получить новые массивы a и b, элементы которых вычисляются по правилу: ai=bi, bi= -ai
Даны массивы а и b, состоящие из n-элементов каждый. Получить новые массивы a и b, элементы...

Массивы
Написать программу, которая заменяет все заглавные буквы строчными, а строчные – заглавными в...

массивы
пожалуйста срочно помогите.отрицательные элементы массива заменить на сумму.вывести преобразованный...

Массивы
Пожалуйста помогите решить задачу.: Вывести элемент массива с нечётными номерами в порядке...

4
Модератор
62884 / 46920 / 32338
Регистрация: 18.05.2008
Сообщений: 113,701
24.06.2010, 13:08 2
Pascal
1
2
3
4
5
6
7
8
k:=0;
for i:=1 to n do
for j:=1 to m do
if a[i,j] mod 2=0 then
 begin
  k:=k+1;
  b[k]:=a[i,j];
 end;
0
634 / 217 / 64
Регистрация: 03.11.2009
Сообщений: 488
24.06.2010, 13:13 3
вот ваш код, если что о не понятно спрашивайте
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
var
a: array [1..40,1..40] of integer;
b:array [1..80] of integer;
i,j,k,n,m:integer;
begin
  writeln('Введите колво строк');
  readln(n);
  writeln('Введите колво столбцов');
  readln(m);
  writeln('Исходная матрица');
  randomize;
    for i:=1 to n do
      begin
        for j:=1 to m do
          begin
            a[i,j]:=random(56)-12;
            write(a[i,j]:4);
          end;
        writeln;
      end;
  k:=0;
  for i:=1 to n do
    for j:=1 to m do
      if a[i,j] mod 2=0 then
        begin
          k:=k+1;
          b[k]:=a[i,j];
        end;
  writeln('Образованный одномерный массив');
   for i:=1 to k do
     write(b[i]:4);
end.
2
Модератор
62884 / 46920 / 32338
Регистрация: 18.05.2008
Сообщений: 113,701
24.06.2010, 13:50 4
lera8, тогда
Pascal
1
b:array [1..1600] of integer;
Вдруг введут матрицу 40х40 и все числа четные?
2
634 / 217 / 64
Регистрация: 03.11.2009
Сообщений: 488
24.06.2010, 13:53 5
Puporev, ой точно..извиняюсь. проглядела я это.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.06.2010, 13:53

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Массивы
Program elem; uses crt; const n=12;m=10;p=120; type tvector=array of integer; ...

Массивы
Подскажите как в программе записать следующие строки? Определить с помощью FUNCTION для каждого...

массивы
ребят послезавтра зачет я уже 2 дня ломаю голову над след. задачами а вам наверно делов на 5...

Массивы
Даны натуральные числа a1, a2, ..., an. Указать те, у которых остаток от деления на М равен L (0...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.