Опубликовано 7 лет назад по предмету Информатика от ral

Написать 2 программы для Паскаля:1)Поменяйте местами первую и последнюю строки прямоугольной таблицы.2)Найдите произведения элементов строк прямоугольной таблицы.

Ответ

Ответ дан sinbad7

1)

var

a:array [1..5,1..10] of integer;

i,j,p:integer;

begin

for i:=1 to 5 do

begin

for j:=1 to 10 do

begin

a[i,j]:=random(50)+1;

write(a[i,j]:3);

end;

writeln;

end;

writeln('меняем 1 и последнюю строки');

for j:=1 to 10 do

begin

p:=a[1,j];

a[1,j]:=a[5,j];

a[5,j]:=p;

end;

for i:=1 to 5 do

begin

for j:=1 to 10 do

write(a[i,j]:3);

writeln;

end;

end.

2)

var a: array [1..5, 1..10] of integer; i, j: integer; p: real;

begin for i := 1 to 5 do begin for j := 1 to 10 do begin a[i, j] := random(50) + 1; write(a[i, j]:3); end; writeln; end; writeln('произведения элементов строк'); for i := 1 to 5 do begin p := 1; for j := 1 to 10 do p := p * a[i, j]; writeln(p:25:0); end;end.

Не тот ответ, который вам нужен?

Найди нужный

Самые новые вопросы

Другие предметы - 1 год назад

В какой оболочке земли живёт большинство живых организмов?

Другие предметы - 1 год назад

Из каких неживых частей состоит экосистема

Другие предметы - 1 год назад

На какие расы делятся население земли

Другие предметы - 1 год назад

Определение статуса военнослужащего (краткий ответ!!)

Другие предметы - 1 год назад

Проведи следущие наблюдения в классе: один учащийся спокойно сидит за партой, слушая объяснения учителя; второй записывает план объяснения в тетради ; третий ученик вышел к доске отвечать на вопрос учителя. назови движущиеся тела. относительно каких других тел они движутся ?

Задай вопрос

Лучшие за месяц

1

Oksana Gordienko
+798, 2 награды
2

Bianca
+743, 4 награды
3

Monna
+702, 2 награды
4

Brawer
+646, 3 награды
5

Ольга М.А.
+10.5K, 4 награды
6

Kovaleva_08
+522, 1 награда
7

Serebro
+495, 3 награды
8

Laguna
+489, 2 награды
9

Katerina_kiev
+441, 3 награды
10

Мусиенко Денис
+402, 2 награды

Интересные статьи: