Дан двумерный массив размерностью 5х6, заполненный целыми числами. Сформировать одномерный массив, каждый (программа Паскаль)
199
392
Ответы на вопрос:
USES Crt;
VAR
H:ARRAY[0..5,0..6] OF INTEGER; K:ARRAY[0..5] OF INTEGER;
I,J:BYTE; S:INTEGER;
BEGIN
ClrScr; Randomize;
{ Заполнение двумерного массива случайным образом и вывод в виде прямоугольной матрицы }
WriteLn(' Значения двумерного массива');
FOR I:=1 TO 5 DO Begin
FOR J:=1 TO 6 DO Begin
H[I,J]:=Random(23); Write(H[I,J]:3);
End; WriteLn;
End; WriteLn;
{ Нахождение суммы элементов строк и заполнение одномерного массива }
WriteLn(' Значения одномерного массива');
FOR I:=1 TO 5 DO Begin
S:=0;
FOR J:=1 TO 6 DO
S:=S+H[I,J];
K[I]:=S; Write(K[I]:4);
End;
END.
VAR
H:ARRAY[0..5,0..6] OF INTEGER; K:ARRAY[0..5] OF INTEGER;
I,J:BYTE; S:INTEGER;
BEGIN
ClrScr; Randomize;
{ Заполнение двумерного массива случайным образом и вывод в виде прямоугольной матрицы }
WriteLn(' Значения двумерного массива');
FOR I:=1 TO 5 DO Begin
FOR J:=1 TO 6 DO Begin
H[I,J]:=Random(23); Write(H[I,J]:3);
End; WriteLn;
End; WriteLn;
{ Нахождение суммы элементов строк и заполнение одномерного массива }
WriteLn(' Значения одномерного массива');
FOR I:=1 TO 5 DO Begin
S:=0;
FOR J:=1 TO 6 DO
S:=S+H[I,J];
K[I]:=S; Write(K[I]:4);
End;
END.
«муравей» - название советских трехколесных грузовых мотороллеров, которые производились на «туламашзавод» в 1959-1995 годах. существовало несколько модификаций, созданных на базе легковых мотороллеров т-200.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Другие предметы
-
s7mart13.12.2022 07:02
-
dmi3Mikh14.01.2020 05:15
-
lenatolkina21.10.2022 05:45
-
MasterHaris07.12.2022 09:55
-
Leraleralozia01.09.2020 08:31
-
ivanmoskvin17731.10.2021 07:04
-
12095494392126.06.2021 01:02
-
SandruhA15.02.2022 19:31
-
galitskovao19.10.2020 06:38
-
Amina14100223.01.2021 00:54
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.