Pascal, помогите Опции

[CumbeR-C]

помогите решить задачку!
Определить минимальный элемент массива и его порядковый номер.

[AndrewDragon]

лол)))

Код

const N=4
var
    Min: real;
    a:array[1..N] of real;
    i,g: integer;
begin
    writeln('BBEDUTE EJIEMEHTbI MACCUBA');
    for i:=1 to n do begin
        write(' A[',i,']=');
        readln(a[i])
    end;
    Min:=a[1];
    for i:=2 to n do
        if Min>a[i] then begin
            Min:=a[i];
            g:=i; {nomer minimalnogo elementa}
            end;
    
    writeln('MUHUMAJIbHbIU EJIEMEHT MACCUBA - A[',g,']=',Min);
end.

Убрал ошибки и недочёты. Модератор.

Сообщение отредактировал Gobbs - Oct 29 2006, 16:49

[CumbeR-C]

Пасиба! АГРОМНОЕ!

[Гость_trust_*]

Код

Program Pashka;
Const N=5;
Var X,Min,NMin,I:Integer;
Begin
Writeln('Input Array');
Min:=MaxInt;
for I:=1 to N Do
Begin
  Read(X);
   if X<Min then Begin
                  Min:=X;
                  NMin:=I;
                 End;
End;
Writeln('ArrayMin is number ',NMin,':',Min);
Readln; Readln;
End.

а зачем массив заводить вообще?

Сообщение отредактировал trust - Oct 29 2006, 18:29

[Amp]

а зачем массив заводить вообще?

Потому что такова формулировка задания

Сообщение отредактировал Amp - Oct 29 2006, 18:51

[CumbeR-C]

Решите плиз задачки:
1 задача.
Заменить элементы массива с нечетными номерами на квадраты этих чисел.
2 задача.
Переставить 3 первых и три последовательных элемента массива сохраняя порядок их следования.

[Гость_trust_*]

Код

Program Pashka;
Const N=5;
Var A:Array[1..N] of Integer;
I:Integer;
Begin
for I:=1 to N do Read(A[I]);

for I:=1 to N do
Begin
  if (I mod 2)<>0 then A[I]:=A[I]*A[I];
End;

for I:=1 to N Do Write(A[I],' ');
Readln; Readln;
End.

вроде работает, но это наскоро и не отлажено...

во второй задаче, ты имел ввиду 3 последних?

А вот и вторая: сырая, аналогично первой :

Код

Program Pashka;
Const N=10;
Var A:Array[1..N] of Integer;
I,X:Integer;
Begin
for I:=1 to N do Read(A[I]);

for I:=1 to 3 do
Begin
  X:=A[I];
  A[I]:=A[N-3+I];
  A[N-3+I]:=X;
End;

for I:=1 to N do Write(A[I],' ');
Readln; Readln;
End.

Сообщение отредактировал trust - Nov 1 2006, 18:25

[CumbeR-C]

Пасиба те!

[-flank]

во второй задаче, ты имел ввиду 3 последних?
А вот и вторая: сырая, аналогично первой :

Program Pashka;
Const N=10;
Var A:Array[1..N] of Integer;
I,X:Integer;

за это бы у нас прогу не приняли, сказав что не эффективно используете ресурсы

Сообщение отредактировал -flank - Nov 1 2006, 19:07

[Гость_unit47_*]

за это бы у нас прогу не приняли, сказав что не эффективно используете ресурсы

имеешь ввиду лучше было бы сделать I,X:^integer; ???
а с массивом сделать такую штукку раз речь пошла об этом!
TYPE
MASSIV:ARRAY[1..N] OF INTEGER(или BYTE );
PMASSIV=^MASSIV;
VAR
A:Pmassiv; I:BYTE;

а патом всеместо if (I mod 2)<>0 then A[I]:=A[I]*A[I];
if (I mod 2)<>0 then A^[I]:=A^[I]*A^[I];
а патом где надо дописатьNEW(A) и DISPOSE(A); или еще попробовать фишку с SIZEOF
так Экономичней???

[-flank]

имеешь ввиду лучше было бы сделать I,X:^integer; ???
а с массивом сделать такую штукку раз речь пошла об этом!

нет, I X никогда не будут отрицательными
хотя я немножко не правильно сказал про ресурсы, жраться то они будут одинково, просто максимальный массивы будет разным

[Гость_unit47_*]

Следовательно I X можно было обявить типаом BYTE

[Гость_trust_*]

X нельзя. массив из интегер же! а тип I такой же как у константы.

[Гость_DiFlax_*]

так!
раз тут аткие гении
то решите мне задачи для олимпиады по информатике!!!!!!!!!

[F2F]

Решитика задачку!
Условия задачки такие( ): Злоумышленники варварски вбили в ни в чем неповинную плоскою поверхности N гвоздей, да так, что только шляпки остались. Мало того, они в своих подлых целях вбили все гвозди в вершины выпуклого многоугольника. После этого они ... страшно сказать... они натянули ниточку вокруг всех гвоздей, так, что поверхность стало совсем грустно! хахахаха, условия задачки не менял! прям так и было написано ) Дополнительно: 1<N<100; P-радиус шляпок.
ОПРЕДЕЛИТЬ ДЛИНУ НИТОЧКИ(S).

[pavel]

Решитика задачку!

http://g6prog.narod.ru/g6_1022.html

условия задачки не менял

опустили часть, без которой решение найти будет трудновато

[F2F]

http://g6prog.narod.ru/g6_1022.html

Вот спасибочки

[GENNADIY]

Вот вам ещё 3 задачи помогите плизз
1) Значение функции y=1-sin2x, при -Пи<=x<=Пи c шагом Пи/4.
2)Имеется 4 произвольных числа A,B,C,D. Эвм должна ответить на вопрос:Правда ли что ...? Ответ Эвм должна вывести в виде текста-слова "Правда" или "неправда".Последнее число несамое маленькое?
3)Имеется массив A из N произвольных чисел (А(N)), среди которых есть положительные, отрицательные и равные. Используя оператор цикла, оставить программу, выполняющую задачу в соответствии с вариантом. Выяснить есть ли одинаковые элементы в массиве. Ответ Да/нет. Например если А=2,4,3,0,2,5,4 результат:Да(одинаковые значения 2 и 2).
Заранее благодарен

[Cep]I[AHT]

Помогите решить задачу )

1.Вычислить сумму и разность двух заданных одномерных массивов размером 5. Результат напечатать в виде двух параллельных столбцов.
2. Дан массив целых чисел из 25 элементов. Заполняется случайным образом.Найдите сумму нечетных массивов. Определите, имеетя ли в данном массиве нечетные элементы.

заранее благодарен

[Amp]

Это из-за зачетной недели всем приспичило? )