Najti v massive element s minimaljnim pozitivnim zna4eniem i jego indeks. Analizirovatj toljko elementi s neparnim indeksom!
u menja 4to-to ne idjot...
program massiv;
var
i,num : integer;
min : real;
ms : array[1..6] of real;
begin
writeln ('Vvedite znachenie elementov: ');
for i := 1 to 6 do begin
readln(ms[i]);
i := i+1;
end;
min := ms[1];
for i := 2 to 6 do begin
if (ms[i] > 0) then begin
if (ms[i] < min) then begin
min := ms[i];
num := i;
end;
end;
end;
writeln(min:2:2);
writeln(num);
readln;
end.
I jesho vapros, kak sdelatj 4tobi koli4estvo elementov v massive vvodilosj s klaviaturi v samom na4ale programmi ??
Thxx...