Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 03.04.2017, 20:33   #1
Serg0398
Новичок
Джуниор
 
Регистрация: 03.04.2017
Сообщений: 2
По умолчанию Помощь с массивами

Приветствую прошу помощи, задали задание, но я вообще не понимаю каким образом это решать на Java есть решение на Pascal. Надеюсь кто нибудь сможет "Перевести" код.. - Задан целочисленный одномерный массив А из N элементов. Найти номер минимального элемента среди положительных элементов, расположенных до первого элемента, кратного пяти.

Код:
const
nmax=100;
type
mas=array[1..nmax] of integer;
var
n,i,j,imin:integer;
a:mas;
f:boolean;
begin
randomize;
  repeat
    write('Vvedite razmer massiva->');
    readln(n);
  until n>0;
  for i:=1 to n do
  begin
   a[i]:=-50+random(101);
   write(a[i]:4);
  end; 
  writeln;
  f:=false;
  i:=1;
  while (i<=n) and (a[i] mod 5 <>0) do
    i:=i+1;
  if i>n then
    writeln('V massive net elementov kratnix 5')
  else if i=1 then
    writeln('Net elementov v massive stoyashih do pervogo elementa kratnogo 5')
  else 
    begin
      j:=i;
      for i:=1 to j-1 do 
        if a[i]>0 then
          if not f then
            begin
              f:=true;
              imin:=i;
            end
          else if a[i]<a[imin] then
            imin:=i;
      if f then
        writeln('Perviy min iz polozitelnix elementov,raspolozennix do pervogo el-ta kratnogo 5 naxoditsya pod nomerom -> ',imin)
      else
        writeln('Net polozhitelnyh elementov, raspolozennix do pervogo el-ta kratnogo 5');
    end;  
  readln; 
end.
Serg0398 вне форума Ответить с цитированием
Старый 03.04.2017, 20:57   #2
Alex11223
Старожил
 
Аватар для Alex11223
 
Регистрация: 12.01.2011
Сообщений: 19,500
По умолчанию

Тут не бесплатное бюро переводов.

покажите свои наработки, конкретные вопросы и т.п.

Или в раздел Фриланс если вы не хотите ничего делать, а ищете кого-то, кто выполнит ваши задачи за вознаграждение.

Цитата:
Сообщение от Serg0398 Посмотреть сообщение
я вообще не понимаю каким образом это решать
начните с чтения учебника и материалов лекции.
"вообще не понимаю" и отсутствие вопросов обычно говорит о том, что вы и не пытались что-то делать.
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом.
Alex11223 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Нужна помощь с массивами в C# Komi Помощь студентам 3 24.11.2016 21:28
Нужна помощь с массивами!! с++ jinos Помощь студентам 4 12.11.2014 19:09
Помощь с массивами (VBA) GANstrel Помощь студентам 0 15.01.2014 20:50
Нужна помощь с массивами ! Katmai Общие вопросы Delphi 3 05.08.2010 00:46
помощь с массивами lg12 Помощь студентам 3 01.08.2009 13:46