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

Массив

14.12.2013, 14:21. Просмотров 772. Ответов 1
Метки нет (Все метки)

Ввести целочисленный двумерный массив А(N*M) , вывести его. Найти произведение тех элементов, которые нечётны и положительны. Найденным произведением заменить предпоследнюю строку матрицы.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.12.2013, 14:21
Ответы с готовыми решениями:

Массив. Разделить на два: массив элементов с четными и массив с нечетными индексами
VII.Одномерные массивы 50. Задан массив с количеством элементов N. Сформировать два массива: в...

Дан массив С (N). Нечетные элементы поместить в массив A, а четные в массив В
Ребят помогите решить задачу на паскале и на бейсике. Дан массив С (N). Нечетные элементы...

Разделить массив на массив четных положительных и массив остальных
дана последовательность из 20 эл. надо её отсортировать на 2 массива. условия видны в задании...

Дан одномерный массив A из N элементов. Переписать положительные элементы массива в массив B, а отрицательные в массив C
Дан одномерный массив A из N элементов. Переписать положительные элементы массива в массив B, а...

Дан массив А. Составить массив В, в котором b[ i ]=a[0]+a[1]+a[2]+....+a[ i ] i=0,1,2,3,4......n-1. Распечатать массив В
Дан массив А. Составить массив В, в котором b=a+a+a+....+a i=0,1,2,3,4......n-1. Распечатать массив...

1
Romalei
109 / 50 / 55
Регистрация: 17.09.2013
Сообщений: 298
14.12.2013, 19:52 2
Лучший ответ Сообщение было отмечено Rutazik как решение

Решение

как-то так
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
uses crt;
var
a:array[1..5,1..5] of integer;
pr,i,j,n,m:integer;
begin
pr:=1;
write('Введите количество строк: '); readln(n);
write('Введите количество столбцов: '); readln(m);
for i:=1 to n do
 for j:=1 to m do
  begin
   readln(a[i,j]);
   if odd(a[i,j]) and (a[i,j]>0) then  //odd - возвращает True, если число нечетное
    pr:=pr*a[i,j];                     //False - если число четное
  end;
clrscr;
writeln('Изначальная матрица:');
for i:=1 to n do
 begin
  for j:=1 to m do
   write(a[i,j]:3);
  writeln;
 end;
 writeln('Полученная матрица:');
for i:=1 to n do
 begin
  for j:=1 to m do
   if (i<>n-1) then write(a[i,j]:3)
    else write(pr:3);
  writeln;
 end;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.12.2013, 19:52

из заданного теста выбрать цифры и записать в массив N ,а буквы - в массив B .Все остальные символы записать в массив S
Привет всем.Помогиет пожалуйста решить задачку из заданного теста выбрать цифры и записать в...

Дан массив а из модулей отрицательных элементов массива а надо построить массив b
Дан массив а из модулей отрицательных элементов массива а надо построить массив b.

Заполнить массив из 8 элементов любым способом и найти максимальный элемент массив.
1. Заполнить массив из 8 элементов любым способом и найти максимальный элемент массив. 2....


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

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

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