Const n = 10;
var a:array [1..n] of integer;
i,min,imin:integer; p:longint;
begin
for i:=1 to n do
begin
a[i]:=random(21)-10;
write(a[i],' ');
end;
writeln;
min:=a[1]; imin:=1;
p:=1;
for i:=1 to n do
begin
if a[i]<min then begin min:=a[i]; imin:=i; end;
if a[i]<0 then p:=p*a[i];
end;
writeln('min = ',min,' imin = ',imin);
writeln('p = ',p);
end.
Пример:
9 5 10 -5 2 10 0 8 -8 2
<span>min = -8 imin = 9
p = 40</span>
//Во всех трех задачах вывел массив на экран, чтобы был виден результат, но если это не нужно, то уберите последний цикл for.
//Константы "х" и "у" - это диапазон генерации числа
//Язык Pascal
---------------------------------
1 задача:
Program Test2;
const Size = 8; x = 1; y = 100;
Var i: integer; Arr: array[1..Size] of integer;
Begin
Randomize;
for i := 1 to Size do
Arr[i] := Random(x, y);
for i := 1 to Size do
Writeln('Элемент ', i, ' = ', Arr[i]);
End.
---------------------------------
2 задача:
Program Test2;
const Size = 8; x = 1; y = 100;
Var i: integer; Arr: array[1..Size] of integer;
Begin
Randomize;
for i := 1 to Size do
begin
while Arr[i] mod 2 = 0 do
Arr[i] := Random(x, y);
end;
for i := 1 to Size do
Writeln('Элемент ', i, ' = ', Arr[i]);
End.
---------------------------------
3 задача:
Program Test3;
const Size = 8;
Var i: integer; Arr: array[1..Size] of integer;
Begin
for i := 1 to Size do
begin
Write('Введите ', i, ' элемент массива: ');
Readln(Arr[i]);
end;
Writeln();
for i := 1 to Size do
Writeln('Элемент ', i, ' = ', Arr[i]);
End.
Информация в мире всегда была,просто в каждом веке свои информационные порталы.,свои информаторы.