Дан двумерный массив целых чисел. написать программу, которая: определяет номер последнего столбца, у которого нечетных элементов больше чем четных.(паскаль)

172

213

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

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

100profan

Информатика

4,6(84 оценок)

program raf105;

const

n = 5;

var

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

i,j,num,n1,n2: integer;

begin

writeln('вводите числа столбцов матрицы по очереди');

for i: =1 to n do

begin

writeln('столбец ',i);

for j: =1 to n do

readln(a[i,j]);

end;

for i: =1 to n do

begin

n1: = 0;

n2: = 0;

for j: =1 to n do

begin

if (a[i,j] mod 2 < > 0) and (a[i,j] < > 0)

then n1: = n1+1;

end;

for j: =1 to n do

begin

if (a[i,j] mod 2 = 0) and (a[i,j] < > 0)

then n2: = n2+1;

end;

if n1 > n2

then num: = i;

end;

writeln('вывод: ',num);

end.

pascalabc 3.4.2

absde91

Информатика

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

// pascalabc.net 3.1, сборка 1219 от 16.04.2016 begin var a: =readlines('m17.txt').joinintostring.tointegers; a.println; var b: =a.select((x,i)-> rec(x,(x-> x.item1< 0) .select(x-> x.item2).toarray; if b.count< > 2 then writeln('количество отрицательных элементов не равно двум') else begin a: =seqfill(b[0],0).concat(a.skip(b[0]).take(b[1]-b[0]+1)) .concat(seqfill(a.length-b[1]-1,; a.println end end. тестовое решение: 23 14 7 15 0 13 -6 41 18 13 8 42 27 -11 3 19 10 0 0 0 0 0 0 -6 41 18 13 8 42 27 -11 0 0 0 файл с исходными данными имеет имя m17.txt. тестовый файл находится во вложении. разбивка на строки сделана по 5 значений, но может быть совершенно произвольной. также нет привязки именно к 17 числам, главное - чтобы отрицательных чисел было ровно два, иначе будет выдано сообщение о их неверном количестве.