программа на паскале с одномерными массивами

[Loga]

Дана последовательность чисел а1,...,аn(N<20). Получить последовательность b1,...,bn по правилу:bi=
{ai/i, ai>0
{
{ai+sini, ai<=0(это система)
(i-индекс)
помогите кто нить плз оч нуна

[alex_fcsm]

uses crt;
const n=20;
var i,j:integer;
    a:array[1..n] of integer;
    b:array[1..n] of real;
begin
clrscr;
randomize;
for i:=1 to n do
 a[i]:=random(10)-5;
for i:=1 to n do
 begin
 if a[i]>0 then b[i]:=a[i]/i
    else b[i]:=sin(i)+a[i];
 write(a[i]:2);write('----');write(b[i]:5);
 writeln;
 end;
readln;
end.

[Жаннуся]

Как решить задачу? нужен листинг программы
Задание:
Создать массив вещественных чисел. Выбрать среди элементов нечетные элементы. Вывести на экран: исходный массив, координаты найденных элементов.
Пожалуйста помогите к экзаммену сдать над

[IT-man]

Как решить задачу?

Вещественные элементы не могут быть четными или нечетными

[Базиля]

Жаннуся

program zad1;
type mas=array[1..10] of real;
var a:mas;
    p,i,n:integer;
    begin
    writeln('введите кол-во элементов');
    readln(n);
    for i:=1 to n do
    begin
    write('a[',i,']=');
    readln(a[i]);
    end;
    for i:=1 to n do
    write(a[i],'  ');
    writeln;
    write('координаты найденных элементов: ');
    for i:=1 to n do
    begin
    p:=trunc(a[i]);
    if p mod 2 <> 0 then
    write(i,'  ');
    end;
    end.

[Жаннуся]

и еще эта(
Создать массив целых чисел. Найти произведение нечетных положительных элементов массива. вывести результат работы на экран.
я глупенькая(((тему массивы не поняла ваще

[Базиля]

IT-man
в этом можно сказать и вся загвоздочка задачи

 p:=trunc(a[i]);

[Базиля]

Жаннуся
лучше бы ты спросила что тебе не понятно, и попыталась бы сама решить, но как видно у тебя просто нет желания разобраться...

program zad1;
var
a:array[1..100] of integer;
n,proizv,i:integer;
begin
writeln('введите кол-во элементов');
readln(n);
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
proizv:=1;
for i:=1 to n do
if (a[i] mod 2 <> 0) and (a[i]>0) then
proizv:=proizv*a[i];
writeln('произведение= ',proizv);
end.

[IT-man]

Сообщение от Базиля

IT-man
в этом можно сказать и вся загвоздочка задачи

 p:=trunc(a[i]);

тогда нужен round a не trunc так как 7.9 ближе к 8 чем к 7

[Базиля]

IT-man

round это округление, нам нужна целая часть числа т.е получается ты ввел не 7.9 а 8....