Vsem privet! Zada4a takova:
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.
for i := 1 to 6 do begin
readln(ms[i]);
i := i+1;
end;
for i := 1 to 6 do
readln(ms[i]);
if (i mod 2)=1 then
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
readln(ms[i]);
min := ms[1];
num:=1;
for i := 2 to 6 do
if (i mod 2)=1 then
if (ms[i] > 0) then
if (ms[i] < min) then
begin
min := ms[i];
num := i;
end;
writeln(min:2:2);
writeln(num);
readln;
end.
if ((i mod 2)=1) and (ms[i] > 0) and (ms[i] < min) then
begin
{---------}
end;
program massiv;
var i,num,n : integer;
min : real;
ms : array[1..200] of real;
begin
writeln('Vvedite koli4estvo elementov v massive<200');
readln(n);
writeln ('Vvedite znachenie elementov: ');
for i := 1 to n do
readln(ms[i]);
min := ms[1];
num:=1;
for i := 2 to n do
if (i mod 2)=1 then
if (ms[i] > 0) then
if (ms[i] < min) then
begin
min := ms[i];
num := i;
end;
writeln(min:2:2);
writeln(num);
readln;
end.
Вводим N = 10
Массив: (-2, 12, 15, 10, 11, -9, -3, -11, 5, 2)
и что будет? Кто сказал, что первый элемент ВСЕГДА положительный? Положительный, извините, еще нужно найти...
Spasibo za otveti, no vot u menja jesho odin vapros!
V C/C++ cikl for mozhno zapisatj kak
for (i=0; i<n; i += 2)
Po4emu v pascale neljza kazhdij takt cikla podnimatj i, naprimer, na 2 a ne na 1 ??! ( i := i+2 ). Togda mozhno bilo bi bez etoj stro4ki "if (i mod 2)=1 then"
У меня тоже вопрос: тебе удобно читать на транслите? А ты уверен, что ВСЕМ это удобно?
A esli vot tak poprobovat'
i := 1;Не забывай, что первый элемент может быть отрицательным, делай проверку... Ты, как я погляжу, пропустил это, и заинтересовался другой "оптимизацией"...
While i <= n do begin
...
inc(i, 2);
end;
а заполнять массив случайными чисоами?
я умею заполнять. я имела ввиду эту задачу решить спомощью заполнения случайными числами
Вообще-то (если ты не заметила) в программе из первого поста ясно указано, что значения задаются с клавиатуры, и С НИМИ уже нужно что-то сделать... Так что никакого отношения к случайным числам это задание не имеет...