Задача в паскале - Форум ПРОГРАММИСТОВ

Новые сообщения · Правила

Страница 1 из 1 1
Модератор форума: Berestovskiy

Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Задача в паскале (Одномерный массив.)

Задача в паскале

Одномерныймассив.
Данмассив A размера 10. Найтиминимальный элемент из его элементов с четными номерами: A2, A4, A6, . . . .

№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 из 1
1

прикладная математика