RFpro.ru: Программирование на Delphi и Lazarus
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты в разделе
∙ Pascal / Delphi / Lazarus
Консультация # 197095: Уважаемые эксперты! Пожалуйста, ответьте на вопрос:Вычислить сумму чисел, принадлежащих промежутку [K, L) и лежащих на главной диагонали и выше ее.Через процедуру ... Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:Дан массив, состоящий из NХM элементов, значения которого вводится
Дата отправки: 14.11.2019, 10:12 Консультирует puporev (Профессионал): Здравствуйте, kondrat322! Код (Pascal) :: выделить код var a:array[1..10,1..10] of integer;
n,m,i,j,k:integer;
begin
repeat
writeln('Введите размеры массива от 2 до 10');
readln(n,m);
until (n in [2..10])and(m in [2..10]);
writeln('Введите элементы массива целые отрицательные и положительные числа');
for i:=1 to n do
for j:=1 to m do
begin
write('a[',i,',',j,']=');
readln(a[i,j]);
end;
writeln('Исходный массив');
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:4);
writeln;
end;
writeln('Измененный массив');
for i:=1 to n do
begin
for j:=1 to m do
begin
if a[i,j]<0 then a[i,j]:=-a[i,j];
write(a[i,j]:4);
end;
writeln;
end;
end.
Уважаемые эксперты! Пожалуйста, ответьте на вопрос:Вычислить сумму чисел, принадлежащих промежутку [K, L) и лежащих на главной диагонали и выше ее.Через процедуру
Дата отправки: 14.11.2019, 11:10 Консультирует Зенченко Константин Николаевич (Старший модератор): Здравствуйте, kondrat322! Код (Pascal) :: выделить код const
n=10;
type
tMas=array[1..n,1..n]of integer;
procedure InputArray(var a:tMas);
var
b,c:integer;
begin
for b:=1 to n do
for c:=1 to n do
begin
write('enter A[',b:2,',',c:2,']:=');
readln(a[b,c]);
end;
end;
procedure ShowArray(a:tMas);
var
b,c:integer;
begin
for b:=1 to n do
begin
for c:=1 to n do
write(a[b,c]:3);
writeln;
end;
end;
procedure SummaSpecial(a:tMas;b,c:integer;var d:integer);
var
e,f:integer;
begin
d:=0;
for e:=1 to n do
for f:=e to n do
if a[e,f]in [b..c]then d:=d+a[e,f];
end;
var
a:tMas;
k,l,s:integer;
begin
InputArray(a);
ShowArray(a);
write('enter k:=');readln(k);
repeat
write('enter l(>',k,'):=');
readln(l);
until l>k;
SummaSpecial(a,k,l,s);
writeln('result:=',s);
end.Удачи!
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
| В избранное | ||
