1) Выйдешь на рабочий стол
2) Нажимаешь правую сторону мышки
3) Выбираешь создать
4) Выбираешь что нужно
5) Даешь имя
Program temp;
uses crt;
var
tem:array [8..20] of real;
min:real;
i:integer;
begin
for i:=8 to 20 do
begin
clrscr;
writeln('Vvedite temperaturu dlya ',i,' chasa zamera');
read(tem[i]);
end;
for i:=8 to 20 do if tem[i]<0 then min:=i;
writeln('Vpervue otricatelnaya temperatura otmechena v ',min);
readln;
end.
Ответ:
1) прост впихнул в компилятор
x=3
y=4
z=0.75
2) нужн p=(a+b)*2 тк первым выполняется умножение
Объяснение:
1.
<span>var a,b,c,t:integer;
begin
writeln('a, b, c:');
readln(a,b,c);
t:=a;
a:=b;
b:=c;
c:=t;
writeln('a = ',a,' b = ',b,' c = ',c);
end<span>.
Пример:
</span><span>a, b, c:
5 8 3
a = 8 b = 3 c = 5
2.
var a,b:integer;
begin
writeln('a, b:');
readln(a,b);
writeln(a,' / ',b,' = ',a/b:6:3);
end.
Пример:
<span>a, b:
5 8
5 / 8 = 0.625</span></span></span>