ответ:var n:byte;
a,b,h:real;
begin
writeln ('Введи номер фигуры 1-квадрат, 2-трапеция, 3-круг, 4-прямоугольник');
readln(n);
if n=1 then
begin
writeln ('Введи сторону квадрата');
readln(a);
writeln('Площадь квадрата=',sqr(a));
end;
if n=2 then
begin
writeln ('Введи длины оснований и высоту');
readln(a, b, h);
writeln ('Площадь трапеции =', (a+b)/2*h:1:1);
end;
if n=3 then
begin
writeln ('Введи радиус');
readln(a);
writeln ('Площадь круга =', pi*sqr(a):1:1);
end;
if n=4 then
begin
writeln ('Введи длины cторон');
readln(a, b);
writeln ('Площадь прямоугольника =', a*b);
end;
end.
Объяснение:
//Pascal ABC.NET v3.1 сборка 1172
Const
n=20;
Var
ar:array[1..n] of integer;
i:integer;
begin
randomize;
writeln('First array:');
for i:=1 to n do
begin
ar[i]:=random(10)-3;
write(ar[i]:4);
if ar[i]>0 then ar[i]:=ar[i]*2 else ar[i]:=0;
end;
writeln;
writeln('Final array:');
for i:=1 to n do
write(ar[i]:4);
end.
Пример работы программы:
First array: 2 -3 5 6 -3 -3 1 -2 -3 1 3 -3 4 -3 1 -1 6 6 2 3
Final array: 4 0 10 12 0 0 2 0 0 2 6 0 8 0 2 0 12 12 4 6