Страница 1 из 1
Спасите меня с задачей! Срочно!!!
Добавлено: 25 дек 2006, 09:26
Anton_XXX
Помогите решить задачу срочно, очень срочно! Вот: задам массив, состоящий из n - элементов. Определить, есть ли среди последних 5 элементов хотя бы один четный.
Re: Спасите меня с задачей! Срочно!!!
Добавлено: 25 дек 2006, 09:54
Хыиуду
for i:=length(n)-5 to length(n)
if not odd(mas) then result:=true;
Re: Спасите меня с задачей! Срочно!!!
Добавлено: 25 дек 2006, 10:00
Anton_XXX
А полностью можно...
Re: Спасите меня с задачей! Срочно!!!
Добавлено: 25 дек 2006, 10:07
Anton_XXX
Пожалуйста, помогите мне... Напишите от begin end...
Re: Спасите меня с задачей! Срочно!!!
Добавлено: 25 дек 2006, 10:21
Anton_XXX
Помогите...
Re: Спасите меня с задачей! Срочно!!!
Добавлено: 25 дек 2006, 10:47
Хыиуду
Код: Выделить всё
uses crt;
var mas:array[1..10] of byte;
i:byte;
res:boolean;
begin
{ здесь каким-то образом задаются элементы массива. Допустим, случайными числами от 0 до 9}
randomize;
for i:=1 to length(mas) do mas[i]:=random(10);
{задали}
res:=false;
for i:=length(mas)-5 to length(mas)
if not odd(mas[i]) then res:=true;
if res then writeln('есть четные') else writeln('нет четных')
end.
Re: Спасите меня с задачей! Срочно!!!
Добавлено: 25 дек 2006, 14:52
Колядин Максим
Не упрашивай ты столько раз, ведь на форуме не всегда присутствуют те, которые помогают (чаще всего это
somewhere и хыиуду). Как только увидят твоё сообщение - сразу помогут... Прошу прощения за замечание.
Вот ещё код, но тут элементы массива нужно вводить вручную(может пригодится):
Код: Выделить всё
uses crt;
var mas:array[1..10] of byte;
i:integer;
begin
for i:=1 to length(mas) do begin
write('Введите элемент массива №',i,' - ');
readln(mas[i]);
end;
for i:=length(mas)-5 to length(mas)
if not odd(mas[i]) then begin
writeln('Есть чётные числа');
readkey;
exit;
end;
writeln('Нет четных...')
readkey;
end.