Технический форум

Технический форум (http://www.tehnari.ru/)

- Delphi, Kylix and Pascal (http://www.tehnari.ru/f43/)

- - Паскаль (http://www.tehnari.ru/f43/t50707/)

Помогите, пожалуйста, с заданием.Нужно написать програму.Очень-очень нужно:
по заданному условию сформировать одномерный массив(вектор), вывести на печать и произвести операции по обработке полученных компонентов массива.Для всех вариантов исходными данными являются одномерный массив, элементы кот. задаются с помощью датчика случ. чисел от -50до +50 и целое положительное число -50.
..нужно вычислить произведение положительных к элементов массива.

Цитата:

Сообщение от Лилька (Сообщение 507412)

Только что проходила почти такая же задача. Осталось чуть-чуть ручонки приложить:
http://www.tehnari.ru/f41/t50667/

по заданному условию сформировать одномерный массив(вектор), вывести на печать и произвести операции по обработке полученных компонентов массива.Для всех вариантов исходными данными являются одномерный массив, элементы кот. задаются с помощью датчика случ. чисел от -50до +50 и целое положительное число -50.
..нужно вычислить произведение последних К элементов массива.
чуть-чуть изменения)
да я видела. в том то и дело , что не могу до конца доделать(

Цитата:

Сообщение от Лилька (Сообщение 507503)

и целое положительное число -50

А его-то к чему приткнуть?

Не знаю.
да у меня тоже самое практически, просто я не знаю как расписать "произведение последних К элементов массива"
в общем где if и т.д.

Цитата:

Сообщение от Лилька (Сообщение 507580)

Код:

const  

 n=10;

 k=3; 

var  

 a:array[1..n] of integer;  

 i:integer;

 P:LongInt; 

begin  

 randomize;  

 for i:=1 to n do   

  begin    

   a[i]:=50-random(101);    

   write(a[i]:4);   

  end;  

 writeln;  

 writeln;  

 P:=1;  

 for i:=n-k+1 to n do   

  P:=P*a[i];

 writeln('Product of last ',k,' elements is ',P);  

 readln; 

end.

Спасибо большое !!!