RFpro.ru: Программирование на Delphi и Lazarus
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты в разделе
∙ Pascal / Delphi / Lazarus
Консультация # 189351: Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос: Найдите сумму первого и последнего, второго и предпоследнего и т.д. элементов массива A(N).. Выведите суммы на экран. ... Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:
Дата отправки: 12.05.2016, 16:57 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, amelya.kuro! Код (Pascal) :: выделить код const
n=5;
m=6;
type
tMas=array[1..n,1..m]of integer;
var
a,b:tMas;
c,d:integer;
begin
{создаем матрицу}
for c:=1 to n do
begin
for d:=1 to m do
begin
a[c,d]:=random(100);
write(a[c,d]:4);
end;
writeln;
end;
{умножаем матрицу}
for c:=1 to n do
for d:=1 to m do
b[c,d]:=3*a[c,d];
{выводим результат}
writeln;
for c:=1 to n do
begin
for d:=1 to m do
write(b[c,d]:4);
writeln;
end;
end.Удачи!
Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:
Дата отправки: 12.05.2016, 16:56 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, amelya.kuro! Код (Pascal) :: выделить код const
n=10;
var
a:array[1..n]of integer;
b:integer;
begin
{создаем массив}
for b:=1 to n do
begin
a[b]:=random(100);
write(a[b]:4);
end;
writeln;
{выводим результат}
for b:=1 to n div 2 do
write(a[b]+a[n-b+1]:4);
writeln;
end.Удачи!
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
| В избранное | ||
