Паскаль

[Лилька]

Паскаль

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

 

[Vladimir_S]

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

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

 

[Лилька]

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

 

[Vladimir_S]

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

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

 

[Лилька]

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

 

[Vladimir_S]

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

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.

 

[Лилька]

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