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

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

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

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

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

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

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

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

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

1
kot96
54 / 45 / 97
Регистрация: 17.08.2014
Сообщений: 151
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
Привет! Вот еще темы с решениями:

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

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

Удалить те элементы массива, которые кратны заданному числу k
Дан список, содержащий натуральные числа. Удалить те его элементы, которые...

Найти и вывести элементы массива, которые не кратны 9 и находятся в диапазоне [30, 70]
Дан целочисленный массив из 70 элементов.Элементы массива могут принимать целые...


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

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

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