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.
Program Test;
Var str: string;
Begin
Write('Введите строку: ');
Readln(str);
str[2] := 'Ж';
str[length(str) - 1] := 'Ж';
Writeln();
Writeln('Строка после обработки: ', str);
End.