Решите пожалуйста в,г,д
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
