Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 24.12.2008, 22:34   #1
felmor
Пользователь
 
Регистрация: 24.12.2008
Сообщений: 29
По умолчанию подкоректировать. Двумерный массив

двумерный массив
Задана квадратная матрица A размером N x N (N<=10), состоящая из действительных элементов.

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


program fellab12;
const nmax = 10; nmin = -10;

type iarray = array[nmin..nmax,nmin..nmax] of real;
var A:iarray;
m,n,i,j:byte;
begin
write('kol strok i stolb');
readln(m,n);
writeln('enter matrix');
for i:=1 to 10 do
for j:=1 to 10 do
write(a[i,j]);
writeln('result = ',i,j)


end.

сделал так, но вижу что не правильно
felmor вне форума Ответить с цитированием
Старый 24.12.2008, 22:48   #2
lexus_ilia
Студентик :)
Пользователь
 
Аватар для lexus_ilia
 
Регистрация: 29.09.2008
Сообщений: 84
По умолчанию

Так вы ничего и не сделали, вы только ещё ввели матрицу, делайте дальше, всё получится...
lexus_ilia вне форума Ответить с цитированием
Старый 25.12.2008, 09:37   #3
Tkirill
Форумчанин
 
Аватар для Tkirill
 
Регистрация: 22.12.2008
Сообщений: 104
По умолчанию Вроде вот так

uses crt;
var
mas:array[1..10,1..10] of real;
i,j:integer;
pr,sum:real;
begin
clrscr;
randomize;
writeln;
for i:=1 to 10 do
begin
for j:=1 to 10 do
begin
mas[i,j]:=-random(10)+random(10);
write(mas[i,j]:2:1,' ');
end;
writeln;
writeln;
end;
sum:=0;
pr:=1;
for i:=1 to 10 do
begin
for j:=1 to 10 do
begin
if mas[i,j]<0 then pr:=pr*mas[i,j]
else sum:=sum+mas[i,j];
end;
end;
writeln;
writeln(' Произведение отрицательных -> ',pr:4:4);
writeln(' Сумма положительных -> ',sum:4:4);
readln;
end.
@(o_0)@
Tkirill вне форума Ответить с цитированием
Старый 25.12.2008, 14:14   #4
puporev
Старожил
 
Регистрация: 13.10.2007
Сообщений: 2,740
По умолчанию

Цитата:
Так вы ничего и не сделали, вы только ещё ввели матрицу,
Более того, Илья, он и матрицу не ввел, только собрался.
puporev вне форума Ответить с цитированием
Старый 25.12.2008, 14:30   #5
lexus_ilia
Студентик :)
Пользователь
 
Аватар для lexus_ilia
 
Регистрация: 29.09.2008
Сообщений: 84
По умолчанию

Короче, не парся парень, держи свою прогу, а то ты походу ещё долго бы её делал...
Код:
Program xa;
var
 a:array[1..10,1..10] of integer;
 i,j,n,sum:integer;
 ymn:longint;
begin
 Writeln('BBedute noP9DoK matpuL/bl');
 readln(n);
 Writeln('BBedute eleMeHTbl matpuL/bl');
 for i:=1 to n do
  for j:=1 to n do
  begin
   Write('A[' ,i, ',' ,j, ']=');
   readln(a[i,j]);
  end;
 ymn:=1;
 sum:=0;
 for i:=1 to n do
  for j:=1 to n do
  if a[i,j]<>0 then
   if a[i,j]>0 then
    sum:=sum+a[i,j]
   else
    ymn:=ymn*a[i,j];
 Writeln('Cymma Bcex nolojuTeLnHblx eleMeHToB= ' , sum);
 Writeln('npou3BeDeHue Bcex otpuL/aTeLbHblx elemeHToB= ', ymn);
 readln
end.
lexus_ilia вне форума Ответить с цитированием
Старый 25.12.2008, 14:31   #6
lexus_ilia
Студентик :)
Пользователь
 
Аватар для lexus_ilia
 
Регистрация: 29.09.2008
Сообщений: 84
По умолчанию

Кстати в той проге что ты написал если-бы хоть 1-ин елемент был равен "0" тогда твоё произведение стало бы равно "0".
lexus_ilia вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Двумерный массив Анжелика Помощь студентам 3 29.12.2008 21:23
Двумерный массив Wi1D Помощь студентам 12 10.12.2008 00:55
Двумерный массив apetr Паскаль, Turbo Pascal, PascalABC.NET 2 30.11.2008 12:32
Двумерный массив... slim5 Помощь студентам 2 20.06.2008 23:16
Двумерный массив в С++ Draid Помощь студентам 2 07.03.2008 22:06