Program asd; Var A,C:array[1..2500] of integer; i,n,s,ii:integer; sr:real; BEGIN Write('Введите n: '); Readln(n); Writeln('Массив: '); For i:=1 to n do begin A[i]:=1+Random(9); Write(A[i]:2); end; Writeln; Writeln('Все элементы, которые меньше последнего числа в ряду: '); For i:=1 to n do begin if A[i]<A[n] then Write(A[i]:2); end; Writeln; Writeln('Среднее арифметическое элементов массива: '); For i:=1 to n do begin s:=s+A[i]; sr:=s/i; end; Writeln(sr:2:2); Writeln('Номер элементов, которые от 3 до 7.: '); For i:=1 to n do begin If (A[i]>=3) and (A[i]<=7) then begin C[i]:=i; Write(C[i],' '); end; end; END.
Program asd; Var A,C:array[1..2500] of integer; i,n,s,ii:integer; sr:real; BEGIN Write('Введите n: '); Readln(n); Writeln('Массив: '); For i:=1 to n do begin A[i]:=1+Random(9); Write(A[i]:2); end; Writeln; Writeln('Все элементы, которые меньше последнего числа в ряду: '); For i:=1 to n do begin if A[i]<A[n] then Write(A[i]:2); end; Writeln(); Writeln('Номер элементов, которые от 3 до 7.: '); For i:=1 to n do begin If (A[i]>=3) and (A[i]<=7) then begin C[i]:=i; Write(C[i],' '); end; end; END.
//PascalABC (версия 3.4.2, сборка 1889 от 04.12.2018)
uses Arrays;
var
n : integer;
sum, mul : real;
a : array of real;
begin
writeln;
n := ReadLnInteger('Введите N: ');
a := CreateRandomRealArray(n);
sum := 0;
mul := 1;
foreach var x in a do
begin
write(x:4:2, ', ');
sum += x;
mul *= x
end;
writeln; writeln;
writeln('Сумма: ', sum:12:4);
writeln('Произведение: ', mul:12:4)
end.