Написать программу на паскале две двумерный массив .удалить столбец в котором кол-во положительных элементов равно кол-ву отрицательных.

271

367

Посмотреть ответы 2

Ответы на вопрос:

asyazakharchenko3011

Информатика

4,5(87 оценок)

// pascalabc.net 3.1, сборка 1219 от 16.04.2016 type matrix=array[,] of integer; procedure matprint(a: matrix); begin var m: =length(a,1)-1; for var i: =0 to length(a,0)-1 do begin for var j: =0 to m do write(a[i,j]: 4); writeln end end; function isequal(a: matrix; col: integer): boolean; begin var s: =sign(a[0,col]); for var i: =1 to length(a,0)-1 do s+=sign(a[i,col]); if (s=0) then result: =(a[0,col]< > 0) else result: =false end; procedure deletecol(var a: matrix; col: integer); begin var n: =length(a,0)-1; var m: =length(a,1)-1; for var j: =col+1 to length(a,1)-1 do for var i: =0 to n do a[i,j-1]: =a[i,j]; setlength(a,n+1,m) end; begin var n: =readinteger('строк: '); var m: =readinteger('столбцов: '); var a: =matrixrandom(n,m,-99,99); writeln('исходная матрица'); matprint(a); for var j: =length(a,1)-1 downto 0 do if isequal(a,j) then deletecol(a,j); writeln('результирующая матрица'); matprint(a); end. тестовое решение строк: 8 столбцов: 10 исходная матрица -3 -82 -25 -22 65 1 79 -67 -64 -82 17 36 48 -32 51 11 43 9 -35 4 -10 -5 80 82 -24 66 -12 -58 50 -94 52 70 53 85 -32 -59 46 57 -84 -44 81 71 -55 37 46 -15 -61 25 22 -7 -49 98 -42 -18 -44 -97 -63 -7 -98 99 -86 37 -17 -69 -35 46 82 62 99 11 65 85 -7 -90 23 19 -50 -56 -64 91 результирующая матрица -82 -25 -22 1 -64 36 48 -32 11 -35 -5 80 82 66 50 70 53 85 -59 -84 71 -55 37 -15 22 98 -42 -18 -97 -98 37 -17 -69 46 99 85 -7 -90 19 -64

Sasha808621

Информатика

4,7(91 оценок)

var

n, i, min, k: integer;

begin

WriteLn('Поиск минимального элемента массива.');

Write('Введите количество чисел N = ');

ReadLn(n);

WriteLn('Введите в одной строке элементы массива (', n, ' целых чисел) и нажмите <Enter>.');

for i := 1 to n do

begin

Read(k);

if i = 1 then if k < min then k := min else min := k else if k < min then min := k;

end;

WriteLn('Минимальный элемент массива: ', min);

end.

Объяснение:

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.