Задание1 :
var i,t:integer;
a:array[1..7] of integer;
begin randomize;
for i := 1 to 7do begin
a[i] := round( random(17)-7 );
write(a[i]:3);
end;
t := 0;
for i := 1 to 7 do
if a[i] < 0 then
inc(t);
writeln;
writeln(t);
readln;
<span>end.
Задание 2: </span>
Трансляция.............................................................
Какое решение? Ты фото скинь потом уже будем решать :D