Оперативная память для обработки и хранение информации это оперативная память
lugowskayatania2017
25.01.2020
//pascalabc.net //naaman var a : array[1..20] of integer; n, sum : integer; begin randomize; sum : = 0; writeln('заполнение массива: '); for n : = 1 to 20 do begin a[n] : = random(50); if a[n] mod 2 = 0 then sum : = sum + a[n]; write( a[n], ' ' ) end; writeln; writeln('сумма четных элементов: ', sum) end.
Svetlana1884
25.01.2020
Var i,j,s,max: integer; a: array[1..3,1..4] of integer; begin randomize; write('исходный массив: '); for i: =1 to 3 do begin writeln; for j: =1 to 4 do begin a[i,j]: =random(10); write(a[i,j]: 2); if i=j then begin if a[i,j]> max then max: =a[i,j]; s: =s+a[i,j] end end end; writeln; writeln('сумма ',s,'; максимальное число ',max) end.