Технический форум - Показать сообщение отдельно

Gruvi · 29.05.2014, 17:14

1 задача у тебя вроде так:

Цитата:

program prog;
var a:array[1..15]of integer;
i,min:integer;
begin
for i:=1 to 15 do
read(a[i]);
min:=a[1];
for i:=2 to 15 do
if odd(i) then
if a[i]<min then min:=a[i];
writeln(min);
end.

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