srzontmp
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.
Answers & Comments
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.