Дана вещественная матрица размерности n*m. вывести номера строк, содержащих больше положительных элементов чем отрицательных. решите на языке pacal

195

338

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

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

salgis

Информатика

4,4(74 оценок)

Program strok; uses crt; const m=3; n=4; var i,j,pos,neg: integer; a: array[1..n, 1..m] of real; begin for i: =1 to n do for j: =1 to m do read(a[i,j]); for i: = 1 to n do begin neg: = 0; pos: = 0; for j: = 1 to m do begin if a[i,j] < 0 then inc(neg) else inc(pos); end; if pos > neg then write(inttostr(i),' '); end; readln; end.

vfedkina35

Информатика

4,4(38 оценок)

// pascalabc.net 3.3, сборка 1541 от 29.09.2017 // внимание! если программа не работает, обновите версию! begin var a: =readarrinteger('введите 7 целых чисел: ',7); write('положительные: '); a.where(x-> x> 0).println; write(' нечетные: '); a.where(x-> x.isodd).println; write('положительные, кратные 5: '); a.where(x-> (x> 0) and (x mod 5= end. пример введите 7 целых чисел: -5 6 21 15 -20 40 0 положительные: 6 21 15 40 нечетные: -5 21 15 положительные, кратные 5: 15 40