Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
Loni
0 / 0 / 0
Регистрация: 28.03.2015
Сообщений: 10
1

Все элементы матрицы, которые не кратны 4 и стоят в четных строках массива, уменьшить на 10

25.05.2015, 20:06. Просмотров 977. Ответов 1
Метки нет (Все метки)

Ввести двумерный массив ANxM . Все элементы, которые не кратны 4 и стоят в четных строках массива уменьшить на 10. Массив вывести до и после преобразования.Заранее спасибо
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.05.2015, 20:06
Ответы с готовыми решениями:

Все элементы массива, которые не кратны 4 и стоят в первой половине массива, уменьшить на 10
Ввести одмерный массив A из N элементов. Все элементы, которые не кратны 4 и стоят в первой...

Все элементы массива, которые не кратны 4 и стоят в первой половине массива уменьшить на 10
Ввести одномерный массив из элементов. Все элементы, которые не кратны 4 и стоят в первой...

Все элементы, которые не кратны 4 и стоят в первой половине файла уменьшить на 10
Типизированные файлы. 2)Ввести файл F. Все элементы, которые не кратны 4 и стоят в первой...

Отсортировать элементы одномерного массива, которые стоят на четных позициях, по возрастанию
Задача заключается в том что нужно отсортировать элементы одномерного массива, которые стоят на...

Подсчитать количество отрицательных элементов массива, которые стоят на четных местах
Помогите решить задачу, заранее благодарен) Дан одномерный массив C, элементы которого...

1
kot96
54 / 45 / 97
Регистрация: 17.08.2014
Сообщений: 156
25.05.2015, 20:21 2
Лучший ответ Сообщение было отмечено Loni как решение

Решение

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
40
41
42
43
44
45
46
47
48
49
program ex1;
uses crt;
const N1=100;N2=100;
type matrix=array[1..N1,1..N2] of integer;
var n,m:integer;
a:matrix;
 
procedure RandomMatrix(var a:matrix; var n,m:integer);
var i,j:integer;
begin
write('Введите кол-во строк матрицы ');
readln(n);
write('Введите кол-во столбцов матрицы ');
readln(m);
 
randomize;
for i:=1 to n do
 for j:=1 to m do
  a[i,j]:=random(11)
end;
 
procedure PrintMatrix(a:matrix; n,m:integer);
var i,j:integer;
begin for i:=1 to n do
       begin for j:=1 to m do
        write(a[i,j]:4);
        writeln;
        end;
end;
 
procedure tr(var a:matrix; n,m:integer);
var i,j:integer;
begin for i:=1 to n do
      for j:=1 to n do
      begin
      if (i mod 2=0) then
      if (a[i,j] mod 4<>0) then a[i,j]:=a[i,j]-10;
      end;
end;
 
 
 
 
begin RandomMatrix(a,n,m);
PrintMatrix(a,n,m);
tr(a,n,m);
writeln();
PrintMatrix(a,n,m);
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.05.2015, 20:21

Подсчитать количество отрицательных элементов массива, которые стоят на четных местах в массиве
Помогите решить задачу, заранее благодарен) Дан одномерный массив C, элементы которого...

Все элементы массива, которые больше девяти, заменить девятками, а все элементы, которые меньше пяти, – пятерками
Задан одномерный массив А. Все элементы массива, которые больше девяти, заменить девятками, а все...

Вывести лишь те элементы, которые стоят по краям матрицы, сохраняя их положение в пространстве
Описать двумерный массив размерностью 7х7. Заполнить массив случайными значениями из диапазона от...


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

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

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