1. сгенерировать массив 8х14, вывести на экран. из чётных элементов этого массива, больших среднего арифметического нечётных элементов сформировать линейный массив, вывести его на экран. 2. сгенерировать массив 10х10, вывести на экран, найти сумму каждой строки. упорядочить строки в порядке возрастания суммы строки. результирующий массив вывести на экран.

297

338

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

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

dauren1mukumov

Информатика

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

1. var a: array[0..7,0..13] of integer; b: array[0..255] of integer; i,j,k: byte; s: integer; sr: real; begin randomize; s: =0; k: =0; for i: =0 to 7 do begin for j: =0 to 13 do begin a[i,j]: =random(20); write(a[i,j]: 4); if a[i,j] mod 2< > 0 then begin s: =s+a[i,j]; k: =k+1; end; end; writeln; end; sr: =s/k; k: =0; writeln; for i: =0 to 7 do for j: =0 to 13 do if (a[i,j] mod 2=0) and (a[i,j]> sr) then begin k: =k+1; b[k]: =a[i,j]; write(b[k]: 4); end; end.2. var a: array[0..9,0..9] of integer; b: array[0..255,0..1] of integer; i,j,k: byte; s,ss,min: integer; flag: boolean; begin randomize; s: =0; k: =0; for i: =0 to 9 do begin for j: =0 to 9 do begin a[i,j]: =random(20); write(a[i,j]: 4); b[i,0]: =a[i,j]+b[i,0]; b[i,1]: =i; end; writeln; end; writeln; flag: =false; min: =10*20+1; for i: =0 to 9 do begin for j: =i to 9 do if min> b[j,0] then begin min: =b[j,0]; k: =j; flag: =true; end; if flag then begin s: =b[i,0]; //замена ss: =b[i,1]; b[i,0]: =b[k,0]; b[i,1]: =b[k,1]; b[k,0]: =s; b[k,1]: =ss; flag: =false; min: =10*20+1; end; end; for i: =0 to 9 do begin writeln; for j: =0 to 9 do write(a[b[i,1],j]: 4); end; end.

диана2458

Информатика

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

Program n1; const n=15; var a: array[1..n] of integer; i,k: integer; begin write('массив: '); for i: =1 to n do begin a[i]: =random(201)-100; write(a[i],' '); end; writeln; k: =0; write('полученный массив: '); for i: =1 to n do if a[i]< 0 then begin a[i]: =a[i]*a[i]; k: =k+1; end; for i: =1 to n do write(a[i],' '); writeln; write('кол-во замен: ',k); end.