Const n=5; // обязательно должно быть нечетным var i,j,max,x,k:integer; a:array[1..n,1..n]of integer; begin writeln('Исходный массив:'); for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=random(20); write(a[i,j]:4); end; writeln; end; max:=a[1,1]; for i:=1 to n do begin if a[i,i]>max then max:=a[i,i]; if a[i,n+1-i]>max then max:=a[i,n+1-i]; end; k:=n div 2+1; x:=a[k,k]; for i:=1 to n do begin if a[i,i]=max then a[i,i]:=x; if a[n+1-i,i]=max then a[n+1-i,i]:=x; end; a[k,k]:=max; writeln('Измененный массив:'); for i:=1 to n do begin for j:=1 to n do write(a[i,j]:4); writeln end end.
function SumPos(a:V): real; var i: integer; s: real; begin s := 0; for i := 0 to Length(a, 0) - 1 do if a[i] > 0 then s := s + a[i]; Result := s end;
var A, B, C: V;
begin A := new real[10] (17.2, 9.3, 14.5, -11.7, 4.3, 5.9, -11.9, 12.3, -14.1, -15.3); B := new real[12] (-1.2, 4.2, 5.9, -18.1, 21.2, -3.1, -5.3, -12.2, 21.4, -4.5, 8.2, 9.4); C := new real[8] (3.5, 8.4, -3.2, 4.5, -8.4, -9.5, 1.5, 9.3); writeln('Сумма положительных элементов массива А ',SumPos(A)); writeln('Сумма положительных элементов массива B ',SumPos(B)); writeln('Сумма положительных элементов массива C ',SumPos(C)); end.
Тестовый прогон:
Сумма положительных элементов массива А 63.5 Сумма положительных элементов массива B 70.3 Сумма положительных элементов массива C 27.2
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку