Program abc;Const n=3; m=3;Var a:array[1..n,1..m] of integer; b,y,i,j,sum:integer; srd:real; Begin Writeln('Введите числа массива: '); For i:=1 to n do For j:=1 to m do Begin Write('a[',i,',',j,']= '); Readln(a[i,j]); if a[i,j]>0 then begin sum:=sum+a[i,j]; inc(b); end else If a[i,j]<0 then Inc(y); End; If sum>0 then begin srd:=sum/1 b; Writeln('Среднее =',srd); end else Writeln('Нет положительных членов массива'); If y>0 then begin Writeln('Количество отрицательных элементов =',y); end else Writeln('Нет отрицательных членов массива');End.
Код Pascal1 2 3 4 5 6 7 8 9 10 11 12 begin var Size := ReadLnInteger('Размер массива ='); var A : array of Integer; SetLength(A, Size); for var i := 0 to pred(Size) do A[i] := ReadLnInteger('A[' + (i+1).ToString + '] ='); WriteLn('Введён массив A = ', A); var count := 0; for var i := 0 to pred(Size) do if Not odd(A[i]) then count += 1; WriteLn('В массиве чётных элементов: ', count); var max := 0; for var i := 1 to pred(Size) do if A[max] < A[i] then max := i; var k := ReadLnInteger('k = '); A[max] *= k; WriteLn('Массив A = ', A); end.
Абай 5 лет он играл в игрушки и седел на стуле возле камина