Сформировать массив случайным образом... (Pascal ABC)

[om3n]

1) Сформировать массив случайным образом, напечатать на экране. Подсчитать число и сумму положительных, число и произведение отрицательных элементов заданного массива.
2) Массив А формирован вводом с клавиатурой. Элементы заданного массива переписать в новый массив В в обратном порядке.

Помогите с решением. Работаем в Pascal ABC

[RUSt88]

ну эт уж простейшие задачи, лень пару страниц прочитать ЛЮБОГО учебника по ЛЮБОМУ языку по массивам и циклам?

[CodeExpert]

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

1) Сформировать массив случайным образом, напечатать на экране. Подсчитать число и сумму положительных, число и произведение отрицательных элементов заданного массива.

PHP код:

program abc;
uses Crt;//подключаем модуль
var m:array[1..10] of integer;//массив
    i:integer;//счетчик
    sum,pro:integer;//сумма и произведение
    kol:integer;//количество
begin
{вводим массив}
Writeln('Введите массив');
for i:=1 to 10 do begin
 Readln(m[i]);end;
{действия с положительными}
kol:=0;sum:=0; //по умолчанию
for i:=1 to 10 do begin
 if m[i]>=0 then begin
   inc(kol);sum:=sum+m[i];end;end;
Writeln('Количество положительных элементов = ',kol);
Writeln('Сумма положительных элементов = ',sum);
{действия с отрицательными}
kol:=0;pro:=1;
for i:=1 to 10 do begin
 if m[i]<0 then begin
   inc(kol);sum:=sum*m[i];end;end;
Writeln('Количество отрицательных элементов = ',kol);
Writeln('Произведение отрицательных элементов = ',pro);
Readln;
end. 


2) Массив А формирован вводом с клавиатурой. Элементы заданного массива переписать в новый массив В в обратном порядке.

PHP код:

program abc;
uses crt;//подключаем модуль
var a:array[1..10] of integer;
    b:array[1..10] of integer;
    i:integer;//счетчик
begin
Writeln('Введите массив а!');
for i:=1 to 10 do begin
 Readln(a[i]);end;
for i:=1 to 10 do begin
 b[11-i]:=a[i];end;
Writeln('Выводим массив b!');
for i:=1 to 10 do begin
 Write(b[i]:3);end;
Readln;
end. 


Помогите с решением. Работаем в Pascal ABC