0 / 0 / 0
Регистрация: 20.11.2016
Сообщений: 82
1

Составить программу, которая все отрицательные элементы всех четных столбцов делает нулевыми

12.04.2017, 22:54. Показов 1014. Ответов 3
Метки нет (Все метки)

Составить программу, которая в двумерном массиве случайных чисел отрицательные элементы всех четных столбцов делает нулевыми. Вывести первоначальный массив и конечный массив.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.04.2017, 22:54
Ответы с готовыми решениями:

Составить программу, которая переносит в начало массива все положительные элементы потом все нули и затем отрицательные
пусть А- двумерный массив целых чисел размерности N*N. Составить программу, которая переносит в...

Составить программу которая делает равными 100 все положительные числа в двумерном массиве
Составить программу, которая в двумерном массиве случайных чисел положительные элементы всех...

Составить программу, которая удаляет из списка все отрицательные элементы
Тема: Динамические структуры данных. Линейные списки. Дан список А, состоящий из записей: первое...

Составить программу, которая обнуляет отрицательные элементы, расположенные на главной диагонали
Помогите! Составить программу , которая обнуляет отрицательные элементы, расположенные на главной...

3
1746 / 1339 / 1407
Регистрация: 28.10.2016
Сообщений: 4,266
13.04.2017, 00:26 2
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
const n=5;
var
  i,j:byte;
  a:array[1..n,1..n] of integer;
begin
  randomize;
  writeln('Исходная матрица:');
  for i:=1 to n do begin
    for j:=1 to n do begin
      a[i,j]:=random(20)-10; write(a[i,j]:3,' ');
      if not odd(j) then a[i,j]:=0;
    end;
    writeln;
  end;
  writeln('Результат:');
  for i:=1 to n do begin
    for j:=1 to n do write(a[i,j]:3,' ');
    writeln;
  end;
end.
0
0 / 0 / 0
Регистрация: 20.11.2016
Сообщений: 82
13.04.2017, 21:15  [ТС] 3
Ещё нужно то же самое, но через процедуры и функции.
0
1746 / 1339 / 1407
Регистрация: 28.10.2016
Сообщений: 4,266
14.04.2017, 01:50 4
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
35
36
37
38
39
type mas = array [1..100,1..100] of integer;
 
function zero:integer; //не знал, какую функцию сделать :)
begin
  zero:=0;
end;
 
procedure input_p(var a:mas; n,m:integer);
var i,j:byte;
begin
  for i:=1 to n do
    for j:=1 to m do
      a[i,j]:=random(41)-20;
end;
 
procedure output_p(a:mas; n,m:integer);
var i,j:byte;
begin
  for i:=1 to n do begin
    for j:=1 to m do
      write(a[i,j]:3,' ');
    writeln;
  end;
end;
 
var i,j,n,m:byte;
    a:mas;
begin
  randomize;
  readln(n,m);
  input_p(a,n,m);
  output_p(a,n,m);
  writeln('Результат:');
  for j:=1 to m do
    for i:=1 to n do
      if (j mod 2 = 0) and (a[i,j]<0) then
        a[i,j]:=zero;
  output_p(a,n,m);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.04.2017, 01:50

В двумерном массиве случайных чисел элементы всех четных строк сделать нулевыми.
1.Составить программу,которая вычисляет суммы элементов столбцов двумерного массива и записывает их...

В двумерном массиве случайных чисел элементы всех четных строк сделать нулевыми
1.Составить программу,которая вычисляет сумму элементов столбцов двумерного массива и записывает их...

Составить программу, которая находит максимальные элементы каждой строки двумерной матрицы А, состоящей из m строк и n столбцов
Составить программу, которая находит максимальные элементы каждой строки двумерной матрицы А,...

Дан массив X(M,N). Все нулевые элементы среди четных столбцов заменить на среднее положительных элеменов столбцов
4.44 Дан массив X(M,N). Все нулевые элементы среди четных столбцов заменить на среднее значение...


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

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

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