Ответ: 3
Если точно: <span>3.8000000000000000E+001</span>
Var a: array [1..10] of integer;
i, min: integer;
Begin
For i:=1 to 10 do
a[i]:=Random(21)-10;
writeln('Исходный массив:');
For i:=1 to 10 do
write(a[i],' ');
writeln;
min:=a[1];
For i:=2 to 10 do
if a[i]<min then
min:=a[i];
writeln('Минимальный элемент = ', min);
For i:=1 to 10 do
if a[i]<0 then
a[i]:=a[i]*min;
writeln('Преобразованный массив: ');
For i:=1 to 10 do
write (a[i], ' ');
writeln;
End.
Выполнение программы на рисунке.
На 4 не знаю
сейчас еще скину одно фото жди ))
Var
s1, s2: string;
i: integer;
begin
readln(s1);
for i:=1 to length(s1) do
if s1[i] in ['0'..'9'] then
s2 := s2 + s1[i];
writeln(s2);
<span>end.</span>
program kurs_v;
const x=20;
var n:integer;
A:array[1..x] of integer;
i,min:integer;
begin
min:=A[1];
for i:=2 to N do
begin
If A[i]<min then min:=a[i];
end;
write(min);
end.