Сформировать и распечатать массив из четных двухзначных чисел.

[godness]

Собственно сабж. Ребят помогите пожалуйста.
Сформировать и распечатать массив из четных двухзначных чисел.

program chet;
   const n=98;
   var A:array[0..98] of integer;
   i:byte;
begin
   for i:=1 to n do A[i]:=random(40)+(-49);
   writeln('chetnie chisla');
   for i:=1 to n do write (A[i]*2,' ');
end.

пробую так но появляются числа с минусом или же однозначные

[JUDAS]

for i:=0 to n-1 do 
  begin
    A[i]:=random(45)*2+10;
    A[i]:=A[i]-2*byte(a[i]=100);
  end;

В Вашем случае массив обїявлен с 0..98 а заполянется с 1-го элемента. Значение нулевого элемента = "удивительно"
весь код:

program chet;
   const n=98;
   var A:array[1..n] of integer;
   i:byte;
begin
   for i:=1 to n do 
    begin
     A[i]:=random(45)*2+10;
     A[i]:=A[i]-2*byte(a[i]=100);
    end;

   writeln('chetnie chisla');
     for i:=1 to n do write (A[i],' ');
end.

[Leshii]

Попробуй так

program chet;
Uses crt;
   const n=98;
   var A:array[0..98] of integer;
   i:integer;
begin
   clrscr;
   for i:=1 to n do A[i]:=abs(random(40)+(-49));
   writeln('chetnie chisla');
   for i:=1 to n do
   if a[i] mod 2 =0 then write (A[i]*2,' ');
end.

Неуверен что правильно конечно.

[JUDAS]

 if a[i] mod 2 =0 then write (A[i]*2,' ');

Чётные будут только отображаться, а ему нужно чтобы заполнялось чётными.
Пусть берёт код с моего предыдущего поста )

[Leshii]

А, понял.)

[Serge_Bliznykov]

godness, а поясните мне, плиз, а с чего Вы взяли,
что массив нужно заполнить СЛУЧАЙНЫМИ числами?

может быть, в массиве должны оказаться ВСЕ двухзначные чётные числа?!

program chet;
const N = 45;
var A:array[1..N] of integer;
   i:integer;
begin
   for i:=1 to n do
     A[i] := (i-1)*2+10;

   WriteLn('Полученный массив:');
   for i:=1 to n do
     Write(A[i]:3,' ');
   WriteLn;
   readln;
end.

[godness]

Сообщение от JUDAS

for i:=0 to n-1 do 
  begin
    A[i]:=random(45)*2+10;
    A[i]:=A[i]-2*byte(a[i]=100);
  end;

В Вашем случае массив обїявлен с 0..98 а заполянется с 1-го элемента. Значение нулевого элемента = "удивительно"
весь код:

program chet;
   const n=98;
   var A:array[1..n] of integer;
   i:byte;
begin
   for i:=1 to n do 
    begin
     A[i]:=random(45)*2+10;
     A[i]:=A[i]-2*byte(a[i]=100);
    end;

   writeln('chetnie chisla');
     for i:=1 to n do write (A[i],' ');
end.

не работает. A[i]:=A[i]-2*byte(a[i]=100); - byte boolean
Serge_Bliznykov
перед этой задачей проходили рандомною функцию, запись в массив не проходили.
разве -20, -40 нечетные числа?

[TinMan]

godness, эту строку:
A[i]:=A[i]-2*byte(a[i]=100);
- выкинь совсем, она не нужна и никогда ничего не будет делать - и тогда прога будет работать.
Отрицательные, конечно, тоже четные, но обычно в подобных задачах они не имеются в виду. Если хочешь их тоже, то строку заполения поменяй так:

     A[i]:= (random(45)*2+10)*(random(2)*2-1);

Но вообще я согласен с Serge_Blizenkov - очень может быть, что имеется в виду простое заполнение по порядку, а не случайно.

[JUDAS]

- выкинь совсем, она не нужна и никогда ничего не будет делать - и тогда прога будет работать.

TinMan, сколько цифр будет в результате если random(45)=45 ?
Справка

Функция Random генерирует случайные числа. Это могут быть числа с плавающей запятой числами в диапазоне:

0 <= Number <1.0

или целые числа в диапазоне:

0 <= Number

источник http://www.delphibasics.ru/Random.php

[TinMan]

Я вообще не знаю, что они там имели в виду. Любое неотрицательное целое, что ли?..

или целые числа в диапазоне:
0 <= Number

Явная же ошибка (недописанное выражение). Видимо, писавший это сам не был уверен - строгое неравенство или нет - хотел уточнить потом, да забыл..

Вообще, рекомендую пользоваться первоисточниками, а не левыми пересказами.

Random
Generate random number
...
Description
Random returns a random number larger or equal to 0 and strictly less than L. If the argument L is omitted, a Real number between 0 and 1 is returned. (0 included, 1 excluded)

http://www.freepascal.org/docs-html/...em/random.html

И потом, JUDAS, зачем применять такую странную конструкцию (которая не везде и пройдет) вместо того, чтоб просто уменьшить значение диапазона на 1?