№1 как изменится площадь прямоугольника, если: а) его длину увеличить в 2 раза; б) его длину и ширину - id464209520230402 от Умка2804 02.04.2023 14:04

Question

Математика: №1 как изменится площадь прямоугольника, если: а) его длину увеличить в 2 раза; б) его длину и ширину увеличить в 2 раза; в) его длину увеличить в 2 раза, а ширину - в 3 раза

Умка2804 · Accepted Answer

Const n = 20;
var arrA, arrC: array[1..n] of real;
i, j: byte;
sum: real;

begin
randomize;
writeln('Array A:');
for i:=1 to n do begin
arrA[i] := random() * 10 - 5;
write(arrA[i]:6:2);
if i mod 10 = 0 then writeln;
end;

i := 2;
j := 0;
sum := 0;
while i <= n do begin
if arrA[i] > 0 then begin
j := j + 1;
arrC[j] := arrA[i];
sum := sum + arrC[j] * arrC[j];

end;
i := i + 2;
end;
writeln('Array C:');
for i:=1 to j do write(arrC[i]:6:2);
writeln;
writeln('sq.sum = ', sum:5:2);
end.

MOGZ ответил