Question

срочно помогите пожайлуста решить задачу на паскале
Организовать заполнение целочисленного массива R, размерностью N. Найти и вывести на экран произведение элементов вектора, не превышающих число S, введённое с клавиатуры, и количество единичных элементов массива. Заменить все элементы массива, индексы которых не совпадают со значениями, на сумму элементов, равных первому элементу массива. Вывести на экран массив R до и после изменения.

Answer 1

Uses crt;

Type R=array[1..100] of integer;

Var

A:R;

i,n,s,pr,k,sum:integer;

Begin

clrscr;

pr:=1;

k:=0;

sum:=0;

writeln('Введите размер массива');

readln(n);

writeln('Введите значение S');

readln(s);

writeln('Введите массив');

 for i:=1 to n do

  begin

   write('A[',i,']= ');

   read(A[i]);

   writeln;

    if A[i]<=s then

      pr:=pr*A[i];

    if A[i]=1 then

      k:=k+1;

    if A[i]=A[1] then

      sum:=sum+A[i];

  end;

writeln('Массив после преобразования');

 for i:=1 to n do

  begin

   if A[i]<>i then

     A[i]:=sum;

   writeln(A[i]:4);

  end;

writeln;

writeln('произведение элементов вектора, не превышающих число S: ', pr);

writeln('количество единичных элементов массива: ', k);

end.