// 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.
В оперативной памяти хранятся те программы и данные, с которыми вы работаете в данный момент. При выключении компьютера информация в оперативной памяти не сохраняется. Например, вы работаете с учебной программой по русскому языку, записанной на лазерном диске. Процессор загружает программу и все необходимые данные с этого диска в оперативную память и только после этого может их обработать. Процессор считывает команды и данные из оперативной памяти и записывает в нее результаты. После окончания работы с программой и выключения компьютера все данные из оперативной памяти исчезну
Объяснение:
Рльпудулц