Регистрация
batrazmargit
03.04.2021 11:46
Информатика
Есть ответ 👍

В квадратной комнате шириной А и высотой
В есть 2 стены с окном
размерами С на D. Так
же,в комнате есть 2
Пустые стены,
размерами А на В.
Вычислите площадь
стен для оклеивания их обоями.
Составьте блок схему​

298
421
Посмотреть ответы 1

Ответы на вопрос:

ник230903
ник230903
4,4(65 оценок)

var

arr : array [1..15] of real;

a, max : real;

i : integer;

begin

read (a);

randomize;

for i := 1 to 15 do

arr[i] := random (20);

for i := 1 to 15 do

write (arr[i], ' ');

writeln; writeln;

for i := 1 to 15 do

write ((arr[i] + a) / 2, ' ');

max := arr[1];

writeln;

for i := 3 to 15 do

if i mod 2 = 1 then

if arr[i] > max then max := arr[i];

writeln ('max =', max);

end.

Объяснение:

вот

Популярно: Информатика