Вывести четные числа среди положительных элементов

@kapelka_leta · Регистрация: 23.03.2013

Author24 — интернет-сервис помощи студентам

Помогите доделать программу!!!...........очень надо........
спасибо)

Pascal

uses crt;
var i,m:integer;
x:array[1..10000] of integer;
begin;
clrscr;
writeln('Введите размер массива x(m)');
readln(m);
writeln('Введите элементы массива x(m)');
FOR i := 1 TO m do
begin
readln(x[i]);
end;
//clrscr;
//gotoxy(5,6);
writeln('Четные среди положительных элементов массива');
FOR i := 1 TO m do
begin
if (x[i]>0)and(not odd(x[i])) then
FOR i := 1 TO m do
begin
Writeln(x[i]);
end;
end;
readkey;
end.

@MicM · 27.06.2013, 00:46

Pascal

uses crt;
var 
  i,m:integer;
  x:array[1..10000] of integer;
begin;
  clrscr;
  writeln('Введите размер массива x(m)');
  readln(m);
  writeln('Введите элементы массива x(m)');
  for i:= 1 to m do
   begin
    readln(x[i]);
   end;
  clrscr;
  writeln('Четные среди положительных элементов массива');
  for i:= 1 to m do
   begin
    if (x[i]>0) and (x[i] mod 2 = 0) then writeln(x[i])
   end;
  readkey;
end.

@kapelka_leta · 27.06.2013, 00:53 **[ТС]**

Pascal

uses crt;
var i,m:integer;
x:array[1..10000] of real;
begin;
clrscr;
writeln('Введите размер массива x(m)');
readln(m);
writeln('Введите элементы массива x(m)');
FOR i := 1 TO m do
begin
readln(x[i]);
end;
//clrscr;
//gotoxy(5,6);
writeln('Четные среди положительных элементов массива');
FOR i := 1 TO m do
begin
if (x[i]>0) and (x[i] / 2 = INT(x[i] / 2)) then
begin
Writeln(x[i]);
end;
end;
readkey;
end.

	27.06.2013, 00:53