Составьте блок-схему и прогроамму на языке pascalabc для вычисления площади прямоугольника.рекомендуемый - id300528620200613 от маг42 13.06.2020 06:48

Question

Информатика: Составьте блок-схему и прогроамму на языке pascalabc для вычисления площади прямоугольника.рекомендуемый вид экрана во время работы ниже(данные,введённые пользователем выделены полужирным шрифтом). исходные данные: длина(см): 9 ширина(см): 7.5

маг42 · Accepted Answer

var

a: array[1..1000] of real;

i, k, n, z: integer;

begin

writeln('введите число n: ');

readln(n);

writeln('введите число z: ');

readln(z);

writeln('введите ',n,' действительных чисел (каждое с новой строки): ');

for i : = 1 to n do

begin

readln(a[i]);

if a[i] > z then

begin

a[i] : = z;

k : = k + 1;

end;

writeln('количество замен: ', k);

end.

MOGZ ответил