Дана действительная матрица размера m×n. получить одномерный массив, элементы которого равны количеством неотрицательных элементов в столбцах. вывести элементы полученного массива на экран и в типизированный дисковой файл f1. вычислить среднее арифмитическое значение элементов файла f1. вывести в файл f2 те элементы файла f1, которые не превышают найденного среднего. использовать при решении подпрограммы.

262

336

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

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

energy525

Информатика

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

// pascalabc.net 3.3, сборка 1540 от 16.09.2017 // внимание! если программа не работает, обновите версию! begin var (m,n): =readinteger2('количество строк и столбцов в матрице: '); var a: =matrgen(m,n,(i,j)-> (random(9000)-4500)/100); writeln('*** исходная матрица ***'); a.println(7,2); writeln(7*a.colcount*'-'); var b: =a.cols.select(c-> c.where(t-> t> =0).count).toarray; if b.length=0 then begin writeln('в матрице все элементы отрицательные'); exit end; b.println; var f1: file of integer; assign(f1,'f1.bin'); rewrite(f1); foreach var t in b do write(f1,t); reset(f1); var (s,k): =(0,0); var v: integer; while not eof(f1) do begin read(f1,v); s+=v; k+=1 end; f1.close; var avg: =s/k; var f2: file of real; assign(f2,'f2.bin'); rewrite(f2); var q: =a.elementsbyrow.where(t-> t< =avg); q.println; foreach var c in q do write(f2,c); f2.close end. пример количество строк и столбцов в матрице: 4 9 *** исходная матрица *** -27.55 14.63 25.01 35.00 34.53 -24.49 -43.20 35.73 35.05 -9.96 -40.27 6.45 43.42 4.31 21.48 17.16 40.35 -3.58 -28.37 -11.17 32.04 26.07 -29.32 -24.20 -7.75 41.32 9.54 34.89 37.10 -26.09 22.64 16.69 -28.75 19.16 22.66 7.52 1 2 3 4 3 1 2 4 3 -27.55 -24.49 -43.2 -9.96 -40.27 -3.58 -28.37 -11.17 -29.32 -24.2 -7.75 -26.09 -28.75

qd1337

Информатика

4,8(72 оценок)

Дэн Купер — псевдоним американского преступника, который 24 ноября 1971 года захватил самолёт Boeing 727-51 авиакомпании «Northwest Orient Airlines», следовавший из Портленда в Сиэтл.

Объяснение:

Он угнал самолет, начал требывать за него выкуп, и когда получил деньги исчез