Program n1; const n=100; var a,b,c: array [1..n] of integer; i,kp,ko: integer; begin randomize; kp:=0; ko:=0; writeln('исходный массив: '); for i:=1 to n do begin a[i]:=random(201)-100; write(a[i],' '); end; writeln; for i:=1 to n do if a[i]>0 then kp:=kp+1 else if a[i]<0 then ko:=ko+1; writeln('кол-во положительных: ',kp); writeln('кол-во отрицательных: ',ko); for i:=1 to n do begin if a[i]>0 then b[i]:=a[i] else if a[i]<0 then c[i]:=a[i]; end; writeln('массив пол. значений: '); for i:=1 to n do if b[i]<>0 then write(b[i],' '); writeln; writeln('массив отр. значений: '); for i:=1 to n do if c[i]<>0 then write(c[i],' '); end.
// PascalABC.NET 3.2, сборка 1379 от 21.01.2017 // Внимание! Если программа не работает, обновите версию!
begin var a,b,R:real; Write('Введите сторону квадрата, треугольника и радиус: '); Read(a,b,R); var s1:=a*a; var s2:=a*a*sqrt(3)/4; var s3:=pi*r*r; var mx:real; var s:string; if s1>s2 then begin mx:=s1; s:='квадрата' end else begin mx:=s2; s:='треугольника' end; if s3>mx then begin mx:=s3; s:='круга' end; Writeln('Максимальная площадь у ',s,' и она равна ',mx) end.
Пример Введите сторону квадрата, треугольника и радиус: 13.5 16.3 3.72 Максимальная площадь у квадрата и она равна 182.25
(2400 *8) бит : 8 бит = 2400 пикселей ( точек)