Составьте программу которая заполняет массив а[1: 10] случайными целыми числами в диапазоне от 1 до - id959656220210118 от 99880 18.01.2021 12:25

Question

Информатика: Составьте программу которая заполняет массив а[1: 10] случайными целыми числами в диапазоне от 1 до 100 определите если в массиве элемент равный 5 ответ в виде слов 《да》 или 《нет》

99880 · Accepted Answer

Блок-схема - в прилагаемом файле.
var n:integer; a,b,r,x,y,z,p,s:real;
begin
writeln('Введите номер фигуры: 1) прямоугольник; 2) круг; 3) треугольник:');
readln(n);
case n of
1: begin
write('a, b: '); readln(a,b);
s:=a*b;
writeln('s = ',s);
end;
2: begin
write('r = '); readln(r);
s:=pi*r*r;
writeln('s = ',s);
end;
3: begin
write('x, y, z: '); readln(x,y,z);
p:=(x+y+z)/2; s:=sqrt(p*(p-x)*(p-y)*(p-z)); writeln('s = ',s);
end;
else writeln('Ошибка ввода');
end;
end.

Пример:
Введите номер фигуры: 1) прямоугольник; 2) круг; 3) треугольник:
3
x, y, z: 3 4 5
s = 6
Даны три фигуры: 1 ) прямоугольник со сторонами a = 2, b = 3 2 ) круг радиуса r = 5 3 ) треугольник

Даны три фигуры: 1 ) прямоугольник со сторонами a = 2, b = 3 2 ) круг радиуса r = 5 3 ) треугольник

MOGZ ответил