var a: array[1..10] of integer;
i,imin,min: integer;
begin
randomize;
write('массив: ');
for i:=1 to 10 do begin
a[i]:=random(201)-100;
write(a[i],' ');
end;
writeln;
min:=a[1];
imin:=1;
for i:=2 to 10 do
if(a[i]<min) then begin
min:=a[i];
imin:=i;
end;
write('наименьший элемент: a[',imin,']=',min);
end.
{s=1-1/1+1/3-1/5+.....}
var i,n,z:integer;
s: real;
begin
writeln('Введите n');
readln(n);
s:=1; z:=1;
for i:=1 to n-1 do
begin
z:=z*(-1);
s:=s+z/(2*i-1);
end;
writeln(s);
end.
Вырезается -
Вставляется
Копируется -
Const n=10;
var
a: array[1..n] of integer;
p,k: integer;
i: byte;
begin
randomize;
p:=1; k:=0;
for i:=1 to n do begin
a[i]:=random(21);
if (a[i]>0) and (a[i] mod 6 =0) then begin
p:=p*a[i];
k:=k+1;
end;
end;
println (a);
if k>1 then writeln ('Произведение элементов, кратных 6, = ',p)
else if k=1 then writeln ('Найден всего 1 элемент, кратный 6, - ',p)
else writeln ('Нет элементов, кратных 6')
end.
-----------------------------------
Примеры:
15 7 14 14 1 17 4 2 20 10
Нет элементов, кратных 6
12 11 16 1 20 6 0 8 7 20
Произведение элементов, кратных 6, = 72
14 6 8 3 15 7 14 5 19 15
Найден всего 1 элемент, кратный 6, - 6
Блок схема, результат работы и сама программа в приложениях.