function SumPos(a:V): real; var i: integer; s: real; begin s := 0; for i := 0 to Length(a, 0) - 1 do if a[i] > 0 then s := s + a[i]; Result := s end;
var A, B, C: V;
begin A := new real[10] (17.2, 9.3, 14.5, -11.7, 4.3, 5.9, -11.9, 12.3, -14.1, -15.3); B := new real[12] (-1.2, 4.2, 5.9, -18.1, 21.2, -3.1, -5.3, -12.2, 21.4, -4.5, 8.2, 9.4); C := new real[8] (3.5, 8.4, -3.2, 4.5, -8.4, -9.5, 1.5, 9.3); writeln('Сумма положительных элементов массива А ',SumPos(A)); writeln('Сумма положительных элементов массива B ',SumPos(B)); writeln('Сумма положительных элементов массива C ',SumPos(C)); end.
Тестовый прогон:
Сумма положительных элементов массива А 63.5 Сумма положительных элементов массива B 70.3 Сумма положительных элементов массива C 27.2
Var X,Y:real; Begin Write('X = ');Read(X); Write('Y = ');Read(Y); if (X*X+Y*Y=1)or( (X>=0)and(Y>=0)and(X<=1)and(Y<=1) ) then Write('Попала') else Write('Мимо') End.
Program z1; var a,b,c,ha,hb,hc,s1,s2,s3:real; begin writeln('введите основание и высоту (соответственно) первого треугольника'); readln(a,ha); s1:=1/2*a*ha; writeln('площадь первого треугольника = ',s1); writeln('введите основание и высоту (соответственно) второго треугольника'); readln(b,hb); s2:=1/2*b*hb; writeln('площадь второго треугольника = ',s2); writeln('введите основание и высоту (соответственно) третьего треугольника'); readln(с,hс); s3:=1/2*с*hс; writeln('площадь третьего треугольника = ',s3); end.
Program swap; const N = 10; var a: array [1..N] of integer; i, temp: integer; begin randomize; writeln('исходный массив: '); for i := 1 to N do begin a[i] := Random(10); write(a[i], ' '); end; writeln; i := 1; while i <= 9 do begin temp := a[i]; a[i] := a[i+1]; a[i+1] := temp; i := i + 2; end; writeln('полученный массив: '); for i := 1 to N do write(a[i], ' '); end.