В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
ShkolnikN15
ShkolnikN15
19.03.2020 00:08 •  Информатика

Работа в паскале. 1)дана матрица a(n,m). получить вектор b(n), компоненты которого находятся по правилу: b[i] равно количеству положительных чисел, c которых начинается i-ая строка 2)из заданной матрицы a(n,m) удалить k-ый столбец. полученную матрицу уплотнить.

Показать ответ
Ответ:
Lizankanahovicyn
Lizankanahovicyn
21.08.2020 21:47

const n=10; m=8;

var a:array[1..n,1..m] of integer;

b:array[1..n] of integer;

i, j: integer;

begin

writeln('Исходная матрица:');

for i:=1 to n do

begin

for j:=1 to m do

 begin

  a[i,j]:=random(20)-5;

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

 end;

writeln;

end;

for i:=1 to n do

begin

j:=1;

while (j<=m)and(a[i,j]>0) do j:=j+1;

b[i]:=j-1;

end;

writeln('Полученный массив:');

for i:=1 to n do write(b[i]:3);

writeln;

end.

Пример:

Исходная матрица:

 14  13   1   9   9   8  -5  10

 13  -4  -2   7   1   5  10  -5

  3   2   6  14  12   5   5  11

  6  -2   8   3   3  -1  -4   8

  9   0  -1  -3   2   6  12   8

 -1  -2   0   3   4  -3  10   5

  8  11  -3   2  12   1   8   7

 13   7  13  11   8  -3   6   1

 11   6   1  -1  14   7  -2   5

  0  13  -3   4  14   2   2   3

Полученный массив:

 6  1  8  1  1  0  2  5  3  0

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота