Дан массив. определить является ли номер минимального элемента четным
elvira122004
2
04.03.2019 10:20
2
Другие вопросы по теме Информатика
vika3v
08.10.2019 08:40
ник030303
08.10.2019 08:40
Chara5
08.10.2019 08:40
studpetrp011ry
06.10.2019 18:31
Девчуля08
20.05.2019 10:23
Kimjkk
20.05.2019 10:23
glushak527
20.05.2019 12:00
morozhenka05
23.12.2020 09:39
UltimatumRenata
23.12.2020 09:40
Популярные вопросы
- Стипендия студента отличника в месяц ровна 2000р а обычного на 25%...
3 - Вырази в сантиметрах: 1000000мм,8000000мм,90000мм,6000мм,600мм....
3 - Напишите наклонение: 1)задирал (нос) 2)оставила(дома) 3)сидел(у окна)...
1 - Одна ферма отправила на рынок 52 бидона молока, другая 48 такиж же...
2 - Водин аквариум налили 2 л. морской воды, во второй 4 л. уровень воды...
2 - Длина прамаугольника 8см,а его ширинав 4 раза меньше.вычтсли пер метр...
2 - Стоимость букета гвоздик в упаковке 100 руб. по какой цене гвоздики...
3 - Вырази в кубических дециметрах : 1 миллион см3 , 64000 см3, 1000 см3...
2 - Вычислить косинус и тангенс угла a, если sin a=0,6 ,a угол 1 четверти...
3 - Два дельфина отплыли одновременно от причала в противоположные стороны...
3
var a:array [1..10] of integer;
i,k:integer;
BEGIN
read(a);
k:=1;
for i := 1 to 10 do
begin
if a[k]>a[i] then k:=i;
end;
if k mod 2 = 0 then writeln(k," - chetnoe")
else writeln(k," - ne chetnoe");
END.