Показать сообщение отдельно
Старый 15.01.2011, 09:03   #3 (permalink)
shrek=)
Студент БГПУ
 
Аватар для shrek=)
 
Регистрация: 06.02.2010
Сообщений: 420
Записей в дневнике: 3
Сказал(а) спасибо: 1
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 470
По умолчанию

Так как тема "Подпрограммы", то и использовать нужно подпрограммы.
Естественно код большой и может не совсем оптимальный.
Цитата:
Сообщение от antishoker Посмотреть сообщение
3) Вычислить и запомнить суммы положительных элементов каждой строки матрицы A (10,20), B (15,10)
Код:
const
m=20;
n=10;
k=15;
var
a:array [1..n,1..m] of integer;
b:array [1..k,1..n] of integer;
s:array [1..20,1..2] of integer;
i,j:integer;

procedure init;
begin
for i:=1 to 20 do
for j:=1 to 2 do
s[i,j]:=0;
end;


procedure zap(x,y:integer);
begin;
for i:=1 to x do begin
for j:=1 to y do begin
a[i,j]:=random(20);
write (a[i,j]:4);
end;
writeln;
end;
end;

procedure zap1(q,w:integer);
begin;
for i:=1 to q do begin
for j:=1 to w do begin
b[i,j]:=random(20);
write (b[i,j]:4);
end;
writeln;
end;
end;

procedure suma;
begin
for i:=1 to n do begin
for j:=1 to m do
if a[i,j]>0 then begin
s[i,1]:=s[i,1]+a[i,j];
write (i,')',s[i,1]:3,' ');
end;
end;
end;

procedure sumb;
begin
for i:=1 to k do begin
for j:=1 to n do
if b[i,j]>0 then begin
s[i,2]:=s[i,2]+b[i,j];
write (i,')',s[i,2]:3,' ');
end;
end;
end;

begin
randomize;
init;
writeln ('First');;
zap(n,m);
writeln ('Summa');
suma;
writeln;
writeln ('Second');
zap1(k,n);
writeln ('summa');
sumb;

readln
end.
shrek=) вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070