<span>begin
var
hrayaz, hrayaz2: string;
writeln ('Введите Ваш адрес'); readln (hrayaz);
writeln ('Введите Ваш номер телефона'); readln (hrayaz2);
end.</span>
#1
var
mas:array[1..10] of integer;
i,sum:integer;
begin
sum:=0;
for i:=1 to 10 do
begin
read(mas[i]);
sum:=sum+mas[i];
end;
writeln(sum/10);
end.
#2
var
mas:array[1..15] of integer;
i,sum:integer;
begin
sum:=0;
for i:=1 to 15 do
begin
read(mas[i]);
sum:=sum+mas[i];
end;
writeln(sum);
end.
#3
var
mas:array[1..10] of integer;
i:integer;
begin
for i:=1 to 10 do
read(mas[i]);
for i:=1 to 10 do
begin
mas[i]:=mas[i]+10;
write(mas[i],' ');
end;
end.
Не являются которые скаченные
Хм, ну если я правально поняла задание, то:
Площадь треугольника равняется полупроизведению высоты и основания, к которому она проведена.
А в чем вопрос собственно? если вопрос что соответствует написанному то это его состояние, т.е. состояние объекта