Массив в паскале

Malysya · 27.05.2011, 15:25

Здравствуйте. помогите исправить ошибку в программе, условие такое:
Найти в вывести минимальное значение среди элементов массива которые имеют нечетное значение и делится на пять.
const
n=20;
var
a:array[1..n] of integer;
i,j,min: integer;
begin
for i:=1 to n do
readln(a[i]);
min:=a[1];
for i:=2 to n do
if a[i]<min then
min:=a[i];
min:=min div 2;
min:=min div 5;

подскажите пожалуста ощибку в программе.

AlexZir · 28.05.2011, 09:23

Код:

const n=20;
var
  a:array[1..n] of integer;
  i,j,min: integer;
begin
  for i:=1 to n do
    readln(a[i]);
min:=32767;
for i:=1 to n do
if (a[i] mod 2=1) and (a[i] mod 5=0) then if a[i]<min then min:=a[i];

Дальше листинг допишите сами

27.05.2011, 15:25	#1 (permalink)
Malysya Member Регистрация: 18.04.2011 Сообщений: 20 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Массив в паскале Здравствуйте. помогите исправить ошибку в программе, условие такое: Найти в вывести минимальное значение среди элементов массива которые имеют нечетное значение и делится на пять. const n=20; var a:array[1..n] of integer; i,j,min: integer; begin for i:=1 to n do readln(a[i]); min:=a[1]; for i:=2 to n do if a[i]<min then min:=a[i]; min:=min div 2; min:=min div 5; подскажите пожалуста ощибку в программе.

28.05.2011, 09:23	#2 (permalink)
AlexZir support Регистрация: 19.08.2007 Адрес: Зея Сообщений: 15,797 Записей в дневнике: 71 Сказал(а) спасибо: 166 Поблагодарили 203 раз(а) в 86 сообщениях Репутация: 75760	Код: const n=20; var a:array[1..n] of integer; i,j,min: integer; begin for i:=1 to n do readln(a[i]); min:=32767; for i:=1 to n do if (a[i] mod 2=1) and (a[i] mod 5=0) then if a[i]<min then min:=a[i]; Дальше листинг допишите сами __________________ Убить всех человеков!

27.05.2011, 15:25
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Вы так же можете не терять времени и просмотреть сходные с вашей темы Одномерный массив в Паскале В Паскале двумерный массив

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070