Помощь - Поиск - Пользователи - Календарь
Полная версия: Массивы
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
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
Большое Вам спасибо! Вы мне очень помогли! Спасибо, что вы есть:)
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.