Найти среднее арифметическое n-чисел, введенных с клавиатуры, кратных 3 и 5 одновременно. в паскале.

var

  n, i, sum, k : integer;

begin

  read (n);

  for i : = 1 to n do

  begin

    read (k);

    if k mod 15 = 0 then sum : = sum + k;

  end;

  writeln (sum / n);

end.

   

Var     i,j,min,s: integer;     a: array[1..4,1..4]of integer; begin for i: =1 to 4 do   begin   for j: =1 to 4 do     begin     a[i,j]: =random(-20,20);     write(a[i,j]: 4);     if i=1 then min: =a[i,j];     if a[i,j]< min then min: =a[i,j];     if j> i then s: =s+a[i,j];     end;   writeln   end; writeln('искомая сумма: ',s); write('индексы минимального элемента: '); for i: =1 to 4 do   for j: =1 to 4 do       if a[i,j]=min then write('(',i,',',j,') ') end.

Var     x,y,p,xmax,ymax: real;     i: integer; begin write('номер варианта: '); readln(i); writeln('x': 5,'y': 8); while x< =i do   begin   y: =sin(x+i);   if y< 0 then       begin       if p=0 then p: =1;       p: =p*y;       end;   if x=0 then ymax: =y;   if y> ymax then     begin     ymax: =y;     xmax: =x;     end;   writeln(x: 6: 2,y: 10: 5);   x: =x+0.01*i;   end; writeln('произведение отрицательных: ',p); writeln('аргумент максимального: ',xmax); end.