0 / 0 / 0
Регистрация: 15.03.2011
Сообщений: 5
1

Допишите программу

20.03.2011, 18:43. Показов 611. Ответов 1
Метки нет (Все метки)

Дан двумерный массив A[6,6] удалите в нем строку содержащую максимальное по модулю число и внесите оставшиеся числа в массив B[5,6]. Напишите программу по проще пожалуйста.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
Program massive;
const n=6; m=6; c=5; s=6;
Var A:array [1..10,1..20] of integer; B:array [1..10,1..20] of integer; max,i,j,k,h:integer; 
Begin
for i:=1 to n do 
for j:=1 to m do 
begin writeln('введи элемент массива');
read(A[i,j]); end;
max:=0;
for i:=1 to n do 
for j:=1 to m do 
begin  if (A[i,j]>max) or (A[i,j]<max) then max:=A[i,j];end;
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.03.2011, 18:43
Ответы с готовыми решениями:

Допишите программу
Сформировать запись, имеющую следующую структуру type студент= record фамилия: string; номергр:...

Допишите программу на матрицу
Здравствуйте, сделайте пожалуйста так, чтобы программа еще раз вывела введеную матрицу, но при...

Допишите комментарий к коду. Как запустить на ABC
Допишите комментарий к коду. Как запустить на ABC. Дано целое четырехзначное число. Верно ли, что...

Допишите код, пожалуйста. Завтра последняя пара перед зачетом
Сделал 4 из 5 лабораторных. Эту никак не могу. Мне помогли с заданиями 1 и 2 Dencil и Puporev....

1
Почетный модератор
64230 / 47532 / 32736
Регистрация: 18.05.2008
Сообщений: 115,182
21.03.2011, 11:03 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
Program massive;
uses crt;
const n=6;
Var A,B:array [1..n,1..n] of integer;
    imax,max,i,j,k:integer;
Begin
for i:=1 to n do
for j:=1 to n do
  begin
   write('введи элемент массива  ');
   read(A[i,j]);
  end;
clrscr;
writeln('Матрица A:');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(A[i,j]:4);
  writeln;
 end;
imax:=1;
max:=A[1,1];
for i:=1 to n do
for j:=1 to n do
if abs(A[i,j])>abs(max) then
 begin
  max:=A[i,j];
  imax:=i;
 end;
writeln('Максимальный по модулю элемент=',max,' в строке ',imax);
k:=0;
for i:=1 to n do
if i<>imax then
 begin
  k:=k+1;
  for j:=1 to n do
  B[k,j]:=A[i,j];
 end;
writeln('Матрица В:');
for i:=1 to k do
 begin
  for j:=1 to n do
  write(B[i,j]:4);
  writeln;
 end;
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.03.2011, 11:03
Помогаю со студенческими работами здесь

Допишите программу
10 DIM C(100, 100) 12 OPEN &quot;MK.txt&quot; FOR OUTPUT AS #1 15 PRINT &quot;VVEDITE PORYADOK KVADRATA&quot; ...

Допишите программу
Здравствуйте! У меня большая просьба к вам дописать пару функций в программу. Дан код: ...

Пожалуйста допишите программу
Здесь два конструктора, нужно объявить класс main, если не сложно покажите как это будет отдельно...

Допишите корректно программу - Таблица деления
10. Таблица Деления Выведите таблицу деления заданных размеров. Формат ввода На первой строке...

ДОПИШИТЕ КОД )
Всем форумчан с наступающим поздравляю; Дописывайте код. Может что прикольное получится )))) ...

Допишите прогу
Удалить из вещественного массива элементы, наименее отличающиеся от его среднего арифметического....


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru