CONST k=10; {k - количество чисел в массиве}VAR a:array[1..k] of integer; i,summ,n:integer; {i - счетчик цикла, summ - сумматор, n - количество элементов массива с четным значением} sr:real; {sr - среднее арифметическое} BEGIN summ:=0; n:=0; {Обнуляем счетчики} for i:=1 to k do begin a[i]:=random(50); {Заполняем массив случайными числами} write (a[i],' '); {Выводим массив} if a[i] mod 2=0 then begin summ:=summ+a[i]; {Находим сумму элементов массива с четными значениями} n:=n+1 end end; sr:=summ/n; {Находим среднее арифметическое} writeln; writeln (sr:0:2) {Выводим среднее арифметическое}END.
3) var x, y, min, max: real; label M1; begin write('x='); readln(x); write('y='); readln(y); If x>y then begin min:=x; max:=y; goto M1; end else min:=y; max:=x; goto M1 M1: writeln('min=', min:8:3, ' max=', max:8:3); end. 2) var a, b, c: real; begin write('a='); readln(a); write('b='); readln(b); write('c='); readln(c); If (a=b) and (b=c) then begin writeln('Треугольник равносторонний'); end else writeln('Треугольник неравносторонний'); end. 1) var a, b: real; begin write('Допустимая скорость ='); readln(a); write('Скорость водителя ='); readln(b); If (a=b) or (a>b) then writeln('Водитель не превысил скорость'); If a<b then writeln('Водитель превысил скорость'); end.
Я надеюсь, что я правильно поняла задание первой и второй задачи о:
Var s:string;
p:integer;
begin
readln(s);
p:=pos(' ',s);
delete(s,1,p);
writeln(s);
end.