Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.65/26: Рейтинг темы: голосов - 26, средняя оценка - 4.65
1 / 1 / 1
Регистрация: 02.04.2012
Сообщений: 13
1

Двумерный массив. Все четные элементы массива заменить нулями

15.06.2012, 00:20. Показов 5234. Ответов 1
Метки нет (Все метки)

Все четные элементы массива заменить нулями. Заполнение массива произвести случайными целыми числами.
P.S.
Пожалуйста напишите программу полностью.
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.06.2012, 00:20
Ответы с готовыми решениями:

Все четные элементы массива заменить нулями, остальные элементы максимальными
В одномерном числовом массиве D все четные элементы заменить нулями ,остальные элементы...

Дан двумерный массив размерностью 4х4. Заменить все элементы массива = С нулями. В случае если таких элементов нет, вывести соответствующее сообще
Дан двумерный массив размерностью 4х4. Заменить все элементы массива = С нулями. В случае если...

Заменить все чётные элементы матрицы нулями
помогите решить... Заменить все чётные элементы матрицы нулями

Двумерный массив. Заменить все элементы массива, кратные 7, на 0
1)Ввести двумерный массив. Вывести исходный массив на экран. Заменить все элементы массива, кратные...

1
3450 / 2388 / 2135
Регистрация: 04.12.2011
Сообщений: 3,965
15.06.2012, 06:11 2
Лучший ответ Сообщение было отмечено Apel'sin32rus как решение

Решение

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
33
34
program massiv;
uses
  crt;
var
  a: array[1..20,1..20] of integer;
  n,m,i,j: integer;
begin
  clrscr;
  write('Введите размеры массива n,m: ');
  readln(n,m);
  writeln('Исходный массив:');
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      a[i,j]:=random(99)+1;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  writeln;
  
  writeln('Преобразованный массив:');
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      if a[i,j] mod 2=0 then a[i,j]:=0;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  readln;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.06.2012, 06:11

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

Заменить все элементы массива больше 15 восьмерками, а элементы равные 5 нулями
Здравствуйте) Пожалуйста, помогите решить две задачки!) 1)Одномерный массив из 7 элементов ...

Заменить все элементы массива = С нулями
Дан двумерный массив размерностью 4х4. Заменить все элементы массива = С нулями. В случае если...

Все четные элементы файла заменить нулями
Помогите мне пожалуйста с задачами,очень вас прошу. 1)имеется типизированный файл с целыми...

Одномерный массив из 7 элементов заполнить случайным образом числами от 5 до 9. Заменить все элементы массива меньше 5 нулями
Одномерный массив из 7 элементов заполнить случайным образом числами от 5 до 9. Заменить все...


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

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

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