Дан массив. определить является ли номер минимального элемента четным
Ответы на вопрос
Ответил archery
0
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.
Новые вопросы
Русский язык,
6 лет назад
Геометрия,
6 лет назад
Математика,
10 лет назад
Физика,
10 лет назад
Химия,
10 лет назад