Народ помогите мне в универе дали такое задание:
Вводятся различные целые числа. надо определить четные и нечетные.
результат вывести на экран. я в программировании 0. icq 299950600
Полная версия: Массивы хэлп
Раз полный ноль, то как ты преподу будешь пояснять программу???
Почитай уроки на этом сайте.
P.S.: Есть специальная функция для определения четности - ODD
Почитай уроки на этом сайте.
P.S.: Есть специальная функция для определения четности - ODD
Код
Program by_Deadly;
Uses crt;
Var
massiv:array[1..10] of longint;
x:byte;
Begin
for x:=1 to 10 do begin
write('massiv[',x,']:=? ');
readln(massiv[x]);
end;
ClrScr;
for x:=1 to 10 do begin
if odd(massiv[x])=true then writeln('massiv[',x,']=',massiv[x],' - HE4ETHOE 4uC/O')
else writeln('massiv[',x,']=',massiv[x],' - 4ETHOE 4uC/O');
end;
End.
по-русски у мня пас не печатит
Deadly спасибо большое никогда не забуду :-* :-* :-*
Первый раз код прислал...
Пойду на кухню отмечать...
Пойду на кухню отмечать...
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.