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

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

10.04.2017, 20:16. Показов 1115. Ответов 2
Метки нет (Все метки)

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

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

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

Напишите программу,которая из файла F (f,g:file of integer)переписывает в пустой файл g сначала все положительные числа,а потом все отрицательные
Напишите программу,которая из файла F (f,g:file of integer)переписывает в пустой файл g сначала все...

Составить программу, которая бы выводила целые числа от 50 до 100
1)составить программу,которая бы выводила целые числа от 50 до 100 2)составить программу...

2
1748 / 1340 / 1407
Регистрация: 28.10.2016
Сообщений: 4,266
11.04.2017, 03:56 2
Лучший ответ Сообщение было отмечено gogo2099 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
const n=6;m=5;
var
  max:integer;
  i,j,imax,jmax:byte;
  a:array[1..n,1..m] of integer;
begin
  randomize;
  for i:=1 to n do begin
    for j:=1 to m do begin
      a[i,j]:=random(41)-20; write(a[i,j]:3,' ');
      if (j mod 2 <> 0) and (a[i,j]>0) then a[i,j]:=100;
    end;
    writeln;
  end;
  writeln;
  for i:=1 to n do begin
    for j:=1 to m do write(a[i,j]:3,' ');
    writeln;
  end;
end.
1
Модератор
Эксперт Pascal/DelphiЭксперт NIX
6168 / 3695 / 2557
Регистрация: 22.11.2013
Сообщений: 10,537
Записей в блоге: 1
11.04.2017, 07:54 3
Или, отделив обработку от вывода:
Pascal
1
2
3
4
  for j:=1 to m do
    if Odd(n) then
      for i:=1 to n do
        if a[i,j]>0 then a[i,j]:=100;
или
Pascal
1
2
3
4
5
6
  j:=1;
  while j<=m go begin
    for i:=1 to n do
      if a[i,j]>0 then a[i,j]:=100;
    Inc(j,2);
  end;
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.04.2017, 07:54

В двумерном массиве целочисленные все положительные элементы заменить на 0
В двумерном массиве А целочисленные все положительные элементы заменить на 0

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

В двумерном массиве целочисленные все положительные элементы заменить на 0
В двумерном массиве А целочисленные все положительные элементы заменить на 0

В двумерном массиве А[3.3] целочисленные все положительные элементы заменить на 0
В двумерном массиве А целочисленные все положительные элементы заменить на 0


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru