Question

Решите пожалуйста в,г,д

Answer 1

Var i,k: integer;
    a: array[1..16] of integer;
    priz: boolean;
    st: string;
begin
  k:=0;  priz:=false;
  st:='';
  randomize;
  writeln('исходный массив из 16 элементов');
  for i:=1 to 16 do
  begin
    a[i]:=random(50)-30;
    write(a[i],' ');
    if a[i]<0 then k:=k+1;
    if (a[i] mod 3) = 0 then
    begin
      priz:=true;
      if i>9 then
      st:=st+chr(ord(49))+chr(ord((i mod 10)+48))+','
      else st:=st+chr(ord(i+48))+',';
    end;
   end;
   writeln;
  delete(st,length(st),1);
  if k>0 then
     writeln('кол-во отрицат. элементов = ',k);
  if priz then
     writeln('индексы элементов, кратных трем:  ',st)
     else writeln('нет элементов, кратных 3');
  readln;
end.