4 а) const n=10; var a:array[1..n] of integer; i,k:integer; begin writeln('Исходный массив: '); for i:=1 to n do begin a[i]:=random(10); write(' ',a[i]); end; writeln; for i:=1 to n do begin if ((i mod 2) = 0) then a[i]:=a[i]*2 else a[i]:=a[i]*3; end; writeln('Конечный массив: '); for i:=1 to n do write(' ',a[i]); end. б) const n=10; var a:array[1..n] of integer; i,k:integer; begin writeln('Исходный массив: '); for i:=1 to n do begin a[i]:=random(10); write(' ',a[i]); end; writeln; for i:=1 to n do begin if ((i mod 2) = 0) then a[i]:=a[i]-a[i]*2; end; writeln('Конечный массив: '); for i:=1 to n do write(' ',a[i]); end. 5 a) const n=10; var a:array[1..n] of integer; i,k:integer; begin k:=0; writeln('Исходный массив: '); for i:=1 to n do begin a[i]:=random(10); write(' ',a[i]); end; writeln; for i:=1 to n do begin if (i>2) and (a[i]>a[i-1]) then k:=k+1; end; writeln('Конечный массив: '); for i:=1 to n do write(' ',a[i]); writeln; write('Кол-во элементов больших соседа слева ',k); end. 5 б) const n=10; var a:array[1..n] of integer; z,i,k:integer; begin k:=0; z:=0; writeln('Исходный массив: '); for i:=1 to n do begin a[i]:=random(10); write(' ',a[i]); end; writeln; for i:=1 to n do begin if ((i mod 2) = 0) then k:=k+1; if k=2 then begin k:=0; z:=z+1; end; end; writeln('Конечный массив: '); for i:=1 to n do write(' ',a[i]); writeln; write('Кол-во четных пар: ',z); end. 6 а) const n=10; var a:array[1..n] of integer; s,k,i:integer; sr:real; begin s:=0; k:=0; writeln('Исходный массив: '); for i:=1 to n do begin a[i]:=random(10); write(' ',a[i]); end; writeln; for i:=1 to n do begin if ((a[i] mod 2) = 0) and ((i mod 2) <> 0) then begin s:=s+a[i]; k:=k+1; end; end; sr:=s/k; writeln('Конечный массив: '); for i:=1 to n do write(' ',a[i]); writeln; write('Среднее арифметическое четных элементов с нечетными индексами: ',sr); end.
Var x,f:real; begin Write('Введите x: '); Readln(x); if (x>-2.4) and (x<5.7) then f:=sqr(x) else f:=4; Writeln('F=',f) end.
var x,f:real; begin Write('Введите x: '); Readln(x); if (x>0.2) and (x<0.9) then f:=sin(x) else f:=1; Writeln('F=',f) end.
var a,b,c:real; begin Write('Введите три числа: '); Readln(a,b,c); Write('Условие ',a,'<',b,'<',c); if (b>a) and (b<c) then Writeln(' выполняется.') else Writeln(' не выполняется.'); Write('Условие ',b,'>',a,'>',c); if (a<b) and (a>c) then Writeln(' выполняется.') else Writeln(' не выполняется.') end.
Program lol;
Var a, b, c, s, p:real;
begin
write('Введите длины трех сторон треугольника: ');
readln(a,b,c);
p := (a + b + c) / 2;
s := sqrt(p * (p-a) * (p-b) * (p-c));
writeln('Площадь тр-ка S = ', s);
end.
Объяснение: