Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Массивы

Автор: enerbe 15.05.2007 3:18

Собственно составил(ну не совсем я) прогу на массивы, по-моему всё верно, но она не работает, пожалуйсто посмотрите и если можно поправте. Изучаю совсем недавно, многое не знаю, нуждаюсь в вашей помощи, спасибо!

Цитата

Вводятся длина одномерного массива, состоящего из целых чисел, и его элементы. С этим массивом произвести указанные действия и вывести результаты. Если используется "заданное число", то оно тоже вводится:
найти минимум среди чисел, кратных 4;

var
a:array [1..100] of integer;
i,n,min: integer;
begin
read(n);
min:=maxint;
for i:=1 to n do
read (a[i]);
for i:=1 to n do
if (a[i] mod 4=0) and (a[i]<min) then
writeln (min);
end.

Автор: Renbo 15.05.2007 3:46

 
....
for i:=1 to n do
  if (a[i] mod 4=0) and (a[i]<min) then
    min:=a[i];
  writeln (min);
end.

Автор: Sto 15.05.2007 3:47

Подправил, и сделал чуть информативней.
Думаю увидеш разницу.

var
a:array [1..100] of integer;
i,n,min: integer;
begin
Write('Please, enter lenght of array -> ');
readLn(n);
WriteLn('Please, enter element`s of array');
for i:=1 to n do
readLn (a[i]);
min := maxint;
for i:=1 to n do
if (a[i] mod 4=0) and (a[i]<min) then min := a[i];
writeln ('Min = ',min);
ReadLn;
end.

Автор: enerbe 16.05.2007 11:19

Большое Вам спасибо! Вы мне очень помогли! Спасибо, что вы есть:)