Pascal.ABC. 1.Вывидите номер ячейки с минимальным числом. 2.Найдите сумму и произведение...

Question

Pascal.ABC.
1.Вывидите номер ячейки с минимальным числом.
2.Найдите сумму и произведение всех элементов массива.
3.Найти максимальное число и заменить его на 999 (random (30)).
4.Найди произведение отрицательных элементов массива (random (60)-30)
За ранее спасибо.

Answer 1

В этой проге 1,2,3
program p1;
uses crt;
var a:array [1..10] of integer;
i,k,s,p,min,max,k2:integer;
begin
   P:=1;
   s:=0;
 for i := 1 to 10 do begin
 a[i]:= random(31);
 write(a[i]:4);
 end;
 writeln;
    min:=a[1];
    max:=a[1];
    
   for i:=1 to 10 do begin
   
     If  min>a[i] then begin
      min:=a[i];
      k:=i;
      end;

      s:=a[i]+s;
      p:=a[i]*p;
      
      If max       max:=a[i];
       K2:=i;
      end;
writeln('МИнимальное число:',min,'   номер :',k);
writeln('Сумма :',s,' Произведение :',p);
for i:=1 to 10 do begin
If a[i] <> max then
write(a[i]:3)
 else write(' 999');
 end;
 writeln;
writeln('Максимальное число :',max,' номер ',k2);
end.
 
Вот 4;
program p2;
uses crt;
var a:array [1..10] of integer;
i,p:integer;
begin
   P:=1;
 for i := 1 to 10 do begin
 a[i]:= random(60)-30;
 write(a[i]:4);
 end;
 writeln;
 p:=1;
  for i:=1 to 10 do begin
   If a[i] < 0 then
    p:=p*a[i]; ;
    end;
   writeln('Произведение  :',p);
end.

Comments

Спасибо конечно, а можно первые задачи без константы?

---

смотри просто константу удали и вместо N 10 напиши

---

ща изменю