Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Задача в паскале (Одномерный массив.)
Задача в паскале
Одномерныймассив.
 Данмассив A размера 10. Найтиминимальный элемент из его элементов с четными номерами: A2, A4, A6, . . . .
1 | Автор: semechka | 2013-10-20, 09:24   |  Репутация: [ + 0 ]
1 | Автор: semechka | 2013-10-20, 09:24   |  Репутация: [ + 0 ]
const
n=10;
var
a:array[1..n]of integer;
i,min:integer;
begin
min:=high(min);
for i:=1 to n do begin
read(a);
if (i mod 2 = 0) and (a < min) then min:=a
;end;
writeln(min);
end.


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2013-10-21, 08:30   |  Репутация: [ + 211 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Задача в паскале (Одномерный массив.)
Страница 1 из 11
Поиск: