парильный ответ a, d. Расширение xlt (С) представляет формат двоичных файлов в MS Exel 97-2003 года, а формат, a формат файлов xls используется в программе Exel 95.
Var a:array[1..5,1..7] of integer;
i,j,kolpol,kolotr:integer;
respol,resotr:real;
begin
for j:=1 to 7 do begin
for i:=1 to 5 do begin
a[i,j]:=random(-50,50);
write(a[i,j]:4);
end;
writeln();
end;
for i:=1 to 5 do begin
respol:=0;
resotr:=0;
kolpol:=0;
kolotr:=0;
for j:=1 to 7 do begin
if a[i,j]>0 then begin
respol+=a[i,j];
kolpol+=1;
end
else if a[i,j]<0 then begin
resotr+=a[i,j];
kolotr+=1;
end;
end;
writeln('Среднее значение положительных чисел в ',i,' столбце=', respol/kolpol);
writeln('Среднее значение отрицательных чисел в ',i,' столбце=', resotr/kolotr);
end;
end.
Настройки рабочего стола :)
Перезапусти комп и все норм
если конечно ты не скачал вирусов
<span>личные, рекламные, политические, коммерческие, общественные</span>