Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Массивы хэлп

Автор: Ksuni 19.10.2003 21:18

Народ помогите мне в универе дали такое задание:
Вводятся различные целые числа. надо определить четные и нечетные.
результат вывести на экран. я в программировании 0. icq 299950600

Автор: APAL 19.10.2003 22:06

Раз полный ноль, то как ты преподу будешь пояснять программу???

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


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

Автор: Gremlin 19.10.2003 22:58

Код

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 19.10.2003 23:05

Deadly спасибо большое никогда не забуду :-* :-* :-*

Автор: Gremlin 20.10.2003 0:32

Первый раз код прислал...
Пойду на кухню отмечать... beer.gif