Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Best-pm07
..:::BesT:::..
7 / 7 / 5
Регистрация: 19.03.2009
Сообщений: 195
#1

Одномерный и двумерный массив

14.06.2009, 00:05. Просмотров 423. Ответов 1
Метки нет (Все метки)

=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

Дан одномерный массив А[10] и двумерный В[3][4].
В двумерном массиве заменить на ноль те элементы,
которые имеют непарную сумму индексов и
больше среднего арифметического значений элементов масива А.


=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

Товарищи эксперты, что неправильно в программе?

Вот что смог сделать:

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
uses crt;
const
 n = 3; m = 4; g=10;
type
  A=array[1..g] of byte;
  B=array[1..n,1..m] of byte;
 
var
 i,j, sa:byte;
 
begin
 for i:=1 to n do
 for j:=1 to m do B[i,j]:=random(10);
end;
 
begin
 for i:=1 to n do
 A[i]:=random(10);
end;
 
begin
 for i:=1 to g do
 sa:=sa+A[i];
end;
 sa:=sa/A[i];
 
begin
 for i:=1 to n do
 for j:=1 to m do
if (i+j mod 2):=0 and B[i,j]>sa then B[i,j]=0;
end;
 
begin
 for i:=1 to n do begin
 for j:=1 to m do write(B[i,j]:3);
    writeln;  end;
    writeln;  end;
 
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.06.2009, 00:05
Ответы с готовыми решениями:

Создать двумерный массив все четные элементы переписать в одномерный массив
создать двумерный массив все четные элементы переписать в одномерный массив

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

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

двумерный и одномерный массив
1) Дан одномерный массив, состоящий из целых чисел. Упорядочить по убыванию...

Одномерный и двумерный массив.
Помогите с 3-мя задачами на массив пожалуйста. Заранее спасибо :) 1. Дан...

1
Dock^
16 / 16 / 16
Регистрация: 05.06.2009
Сообщений: 47
14.06.2009, 00:19 #2
у тебя нет главной программы

Добавлено через 9 минут 11 секунд
попробуй так

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
uses crt;
const
 n = 3; m = 4; g=10;
type
  mas1=array[1..g] of byte;
  mas2=array[1..n,1..m] of byte;
 
var
 i,j,sa:byte;
 b:mas2;
 a:mas1;
 
begin
 clrscr;
 randomize;
 for i:=1 to n do
 for j:=1 to m do B[i,j]:=random(10);
 for i:=1 to n do
 A[i]:=random(10);
 
 for i:=1 to g do
 sa:=sa+A[i];
 
 sa:=round(sa/10);
 
 for i:=1 to n do
 for j:=1 to m do
   if (i+j mod 2)=0 then if (B[i,j]>sa) then B[i,j]:=0;
 
 for i:=1 to n do
 begin
 for j:=1 to m do
 begin
 write(B[i,j]:3);
 end;
 writeln;
 end;
 readkey;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.06.2009, 00:19

Одномерный и двумерный массив
помоги плиз...до конца практики 2 дня, а ещё несколько задач Array46. Дано...

Одномерный и двумерныЙ массив!!!
1)Дана квадратная действительная матрица порядка n.Найти наибольший по...

Умножить двумерный массив на одномерный
нужно умножить двумерный массив на одномерный и вывести его третим...


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

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

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