Помощь - Поиск - Пользователи - Календарь
Полная версия: Массивы хэлп
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Ksuni
Народ помогите мне в универе дали такое задание:
Вводятся различные целые числа. надо определить четные и нечетные.
результат вывести на экран. я в программировании 0. icq 299950600
APAL
Раз полный ноль, то как ты преподу будешь пояснять программу???

Почитай уроки на этом сайте.


P.S.: Есть специальная функция для определения четности - ODD
Gremlin
Код

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.


по-русски у мня пас не печатит
Ksuni
Deadly спасибо большое никогда не забуду :-* :-* :-*
Gremlin
Первый раз код прислал...
Пойду на кухню отмечать... beer.gif
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.