Program z_1; var a,b,c,d,h,p: integer; s: real; begin writeln ('введите стороны a, b, c, d и высоту h'); readln (a,b,c,d,h); p: =a+b+c+d; s: =(a+b)/2*h; writeln ('периметр ', p, ', площадь ', s); end.
Спасибо
Ответ дал: Гость
системный блок
Ответ дал: Гость
если массив состоит из 10 элементов то код программы:
const
n=10;
var
a: array[1..n] of integer;
i,min: integer;
begin
for i: =1 to n do read(a[i]); {вводишь заданный массив}
Популярные вопросы