Вмассиве из 10 целых чисел заменить все элементы, меньшего среднего арифметического, на минимальный элемент, а все большие - на максимальный ( сделать в делфи )
Var A:array[1..10] of integer; min,max:integer; R:real; Begin For var i:= 1 to 10 do Begin A[i]:=random(100)-50; Write(A[i],' '); R:=A[i]; End; R:=R/10; min:=A[1]; For var i:= 2 to 10 do if A[i]<min then min:=A[i]; max:=A[1]; For var i:= 2 to 10 do if A[i]>max then max:=A[i]; For var i:= 1 to 10 do if A[i]<R then A[i]:=min else if A[i]>R then A[i]:= max; WriteLn; For var i:= 1 to 10 do Write(A[i],' '); End.
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016 procedure MatPrint(a:array[,] of integer); begin for var i:=0 to Length(a,0)-1 do begin for var j:=0 to Length(a,1)-1 do Write(a[i,j]:4); Writeln end end;
procedure MatReplaceOdd(a:array[,] of integer; value:integer); begin for var i:=0 to Length(a,0)-1 do for var j:=0 to Length(a,1)-1 do if a[i,j].IsOdd then a[i,j]:=value end;
begin var n,m:integer; Write('Задайте число строк и столбцов матрицы: '); Read(n,m); var a:=MatrixRandom(n,m,-99,99); Writeln('Исходный массив'); MatPrint(a); MatReplaceOdd(a,26); Writeln('Результирующий массив'); MatPrint(a) end.
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016 begin var a:=ArrRandomReal(28,0.001,2); a.Println; Writeln(NewLine,'P=',a.Where(x->x<1.0).Aggregate(1.0,(p,x)->p*x)) end.
A:array[1..10] of integer;
min,max:integer;
R:real;
Begin
For var i:= 1 to 10 do
Begin
A[i]:=random(100)-50;
Write(A[i],' ');
R:=A[i];
End;
R:=R/10;
min:=A[1];
For var i:= 2 to 10 do
if A[i]<min then min:=A[i];
max:=A[1];
For var i:= 2 to 10 do
if A[i]>max then max:=A[i];
For var i:= 1 to 10 do
if A[i]<R then A[i]:=min
else if A[i]>R then A[i]:= max;
WriteLn;
For var i:= 1 to 10 do
Write(A[i],' ');
End.