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.
Все объекты на Рабочем столе можно разделить на 3 группы: ярлыки,файлы,папки.Сведения о файле, папке или ярлыке можно найти в пункте меню Пуск справка и поддержка.Окно-это прямоугольная область экрана, в которой выводится определенная информация: содержимое дисков, программы, создаваемые пользователем документы, запросы и сообщения Windows. Окна можно открывать (разворачивать), закрывать, сворачивать, перемещать, упорядочивать, менять размеры . Открытое окно может занимать целый экран или его часть.Управлять размерами окна можно плавно с мыши и автоматически - с
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.