Легкая задачка для асов Паскаль Турбо

[Chudo4258]

imin:=2;
min:=A[2];
P:=1;
for i:=1 to n do
begin
 if (i mod 2 =0) and (A[i]<nim) then begin
                                                  min:=A[i];
                                                  imin:=i;
                                                end;
 if (i mod 2 <> 0) then P:=P*A[i];
end;

[Suslik-LICHNOST]

идей нет, господа?

[__STDC__]

странное объявление массива... array [1..5] of integer и ниже writeln ('Vvedite kol-vo elementov massiva'); readln (N);
Как думаете, что будет, если ввести скажем 10?
неподключенный crt, необъявленная qwe...
***
о Господи... в общем алгоритм выше, в сообщении от Chudo4258... советую удалить то, что вы написали и переделать заново..

[Chudo4258]

А выше тебе не идя написана, или хочешь опять готовую задачу скопировать???

[DM_bite]

В массиве для элементов с четными номерами найти индекс минимального элемента и его значение. Для элементов с нечетными номерами определить их произведение.

И что трудно?Задача для пятого класса... А ваш код - бред полный.Ночной кошмар.Но это лирика.А алгоритм решения таков:пробегаем циклом, сравниваем элемент с минимумом + проверка индекса на четность и если минимум больше, присваиваем минимуму значение этого элемента, а его индекс заносим в переменную.А с нечетными еще проще - если у элемента нечетный индекс, то умножаем его на произведение(предварительно - произведение приравнять к 1).
Ps:Просто надоело одно и то же писать по сто раз.

[Suslik-LICHNOST]

Привет! Спасибо вам! В школе у меня не было информатики. Прошу не обижаться на мой ужас, ночной кошмар и т.п. Я уверен, что вы начинали ничуть не лучше. Если не хотите - не помогайте. Простите, если кого обидел. На этом форуме мне нравилось общение тем, что все понятно и быстро объясняют. Ув. Чудо, когда я просто копирую код задачи, то все равно разбираюсь в ней.

Сообщение от Suslik-LICHNOST

идей нет, господа?

За это извините! Не заметил сообщения от Чудо.

[Suslik-LICHNOST]

Кому это не в тягость и кто меня понял: пожалуйста, укажите ошибку.

Среди положительных элементов массива A найти индекс минимального элемента и его значение.

Program Alex;
uses crt;
var
a: array [1..20] of integer;
min, i, N, qwe: integer;
begin
clrscr;
writeln ('Vvedite kol-vo elementov massiva'); readln (N);
for i:=1 to N do begin
write ('a[',i,']=');
readln (a[i]) end;
begin
if a[i]>0 then
begin
min:=a[1]; qwe:=1;
for i:= 1 to N do
if min>a[i] then begin min:=a[i]; qwe:=i; end; end; end;
writeln ('Nomer minimalnogo elementa: ', qwe,'; ', 'ego znachenie: ', min); readln;
end.

Считает минимум и среди отриц. элементов массива.

[ArtInt]

Сначала делаем первый элемент минимальным. Потом проверяем по циклу.
Вот, например, можно так

Program Alex;
uses crt;
var
  a: array [1..20] of integer;
  min, i, N, qwe: integer;
begin
clrscr;
writeln ('Vvedite kol-vo elementov massiva');
readln (N);
for i:=1 to N do
begin
  write ('a[',i,']=');
  readln (a[i])
end;

for I := 1 to n do    // Iterate
begin
  if a[i]>0 then
  begin
    min:=a[i];
    qwe:=i;
    break;
  end;
end;    // for


for i:=qwe+1 to n do
begin
  if (min>a[i]) and (a[i]>0) then
  begin
    min:=a[i];
    qwe:=i;
  end;
end;

writeln ('Nomer minimalnogo elementa: ', qwe,'; ', 'ego znachenie: ', min); readln;
end.

Как видно из кода сначала находится первый положительный элемент, который становится минимальным, потом делается проверка со следующего элемента меньше он или нет, а также больше ли 0, если да то он становится минимальным.

P.S. Желательно, код оформлять с табуляцией или пробелами, чтобы читать легче было и также заключать в теги код (на форуме иконка решетки)

[Suslik-LICHNOST]

Спасибо большое! Все 15 задач решил с вашей помощью. Если бы не вы... Круто, что есть такие люди!

[Sparky]

for i:=1 to k-1 do
if Y[i]=min then Y[i]:=0;

зачем так изгаляться???? можно ведь проще: записывать в переменную индекс минимального элемента, и потом его обнулить, обратившись y[imin]:=0, зачем второй раз бежать по массиву,если считать сложность алгоритмов, то ваш сильно проиграет.