Задача на массивы в паскале.Помогите решить!!!)))

[dioramer]

пожалуйста помогите решит задачу)))



Определить максимальный элемент массива В (составленного из 12-ти элементов) и его номер.

[Nerazumovskiy]

Хорошо помогу но при условии что вы покажете сначала
как обявить этото масив, как вывести на экран 1-вый елемент масива,
и ещо напишыте цыкл который делает 10 проходов(кругов).

[AlexDem]

А какие затруднения? Цикл for, две переменные - с номером и значением максимального элемента, и условие if в цикле. Вы пробовали решить? Что у Вас получилось?

Добавлено спустя 1 минуту 25 секунд:

Nerazumovskiy, зачем Вам 10 проходов? Сортировка здесь ни к чему...

[Nerazumovskiy]

ну должен же я знать что человек умеет писать цыклы.

[AlexDem]

Судя по вопросу - не вполне

[Danila88]

неPascal
. . .
1 continue
a=k(1)
i=1
b=k(i+1)
if(a.gt.b) then
a=b
endif
i=i+1
if(i.gt.n-1) then
write(*,*) a,i
else
go to 1
endif
end
n-кол-во элементов

[AlexDem]

Danila88, а у Вас - бесконечный цикл... И за goto в Паскале нормальные преподы делают строгие замечания - это плохой стиль.

[Nerazumovskiy]

Ладно, ждем ответа на поставленые вопросы...

[dioramer]

не знаю я начинал решать так-..

program rh
const size=5;
var
a:array[1...size] of integer;
begin
writeln('vvedite ? ? ?)
fork:= to size do

вот а дальше не знаю да и это не знаю правильно ли?

[AlexDem]

Может попробовать сперва составить алгоритм без программы? Судя по всему, Вы совсем новичёк. Это Вам по учёбе нужно?

Я что-то уже успел подзабыть Паскаль, но Ваша программа должна выглядеть примерно так:

program rh;
const size = 5;
var a: array[1..size] of integer;
     k: integer;
     vmax: integer;
     vidx: integer;
begin
   writeln('Введите массив через пробел и нажмите Enter');
   readln(a); {Вот тут я не помню, вроде так можно - запросить весь массив}

   {Инициализируем}
   vidx := 1;
   vmax := a[1];

   {Ищем максимальный элемент}
   for k := 2 to size do begin
   end;

   writeln('Максимальный элемент:', vmax);
   writeln('Номер элемента в массиве:', vidx);
end.

Попробуйте представить себе, что Вам предъявляют ряд чисел, и в каждый момент у Вас есть возможность запомнить только одно число и его порядковый номер (если Вы запоминаете новое число, то старое забываете). А так же есть возможность сравнивать то число, что Вы запомнили, с тем, которое Вам предъявляют в настоящий момент. Сможете ли Вы после того, как просмотрите таким образом весь ряд, назвать наибольшее число и его номер?

[Усталый]

AlexDem писал(а):

   {...}
   {Ищем максимальный элемент} 
   for k := 2 to size do begin 
   end;
  {...}

Кажется, Вы забыли if a[k] > vmax then vmax := a[k] (или как там на Pascal правильно)

[Danila88]

AlexDem писал(а):

Danila88, а у Вас - бесконечный цикл... И за goto в Паскале нормальные преподы делают строгие замечания - это плохой стиль.

Прерывание находится здесь:

if(i.gt.n-1) then
write(*,*) a,i
else
go to 1
endif
однако ошибка есть в выводе номера, надо так:


1 continue
a=k(1)
i=1
b=k(i+1)
if(a.gt.b) then
a=b
NUM=i
endif
i=i+1
if(i.gt.n-1) then
write(*,*) a,NUM
else
go to 1
endif
end

Данный метод обработки (неявно заданный цикл) позволяет обрабатывать большой объём числовых данных - последовательный доступ

[littledespair]

мдэ

uses crt;

var a:array[1..12] of Integer;
i, n: Integer;

begin
clrscr;
for i:=1 to 12 do Readln(a[i]);
Writeln;
n:=1;
for i:=2 to 12 do
    if a[i]>=a[n] then n:=i;
Writeln('MAX element = ', a[n], '    Nomer = ', n);
readkey;
end.

[AlexDem]

Ой, что-то я уведомлений не получал, а тема-то разрослась...

Усталый в сообщении #188427 писал(а):

Кажется, Вы забыли if a[k] > vmax then vmax := a[k] (или как там на Pascal правильно)

Это я не забыл, а оставил для dioramer в качестве упражнения. А Вы, Усталый, его успешно решили (хотя и не полностью), поздравляю

Danila88 в сообщении #188483 писал(а):

Прерывание находится здесь:

А если на начало посмотрим:

1 continue 
a=k(1) 
i=1

- у Вас же i всё время затирается, так же как и a. Поэтому Вы всё время ходите по первому элементу.

littledespair в сообщении #189822 писал(а):

мдэ

Тоже вариант, чуть посложней и, возможно, помедленней - я о нём знал

[littledespair]

AlexDem писал(а):

Тоже вариант, чуть посложней и, возможно, помедленней - я о нём знал

разве может быть что-то проще? О_о
о скорости в 12-тиэлементном массиве думать не приходится
да и выделение памяти минимальное же