Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
Loni
0 / 0 / 0
Регистрация: 28.03.2015
Сообщений: 9
#1

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

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

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

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

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

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

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

Подсчитать количество отрицательных элементов массива, которые стоят на четных местах - Pascal ABC
Помогите решить задачу, заранее благодарен) Дан одномерный массив C, элементы которого формируются по формуле C = 5*sin2i +4*cos6i,...

Подсчитать количество отрицательных элементов массива, которые стоят на четных местах в массиве - Pascal ABC
Помогите решить задачу, заранее благодарен) Дан одномерный массив C, элементы которого формируются по формуле C = 5*sin2i +4*cos6i,...

1
kot96
52 / 43 / 66
Регистрация: 17.08.2014
Сообщений: 148
25.05.2015, 20:21 #2
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
Привет! Вот еще темы с ответами:

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

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

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

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


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

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

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