Program Task;
Var a: Array [1..40] of Integer;
b: Real;
c, d, e, i: Integer;
Begin
Randomize;
For i := 1 To 40 Do
a[i] := Random(20 + 1);
WriteLn('Массив:');
For i := 1 To 40 Do
Write(a[i], ' ');
WriteLn;
For i := 1 To 40 Do
Begin
If a[i] Mod 2 = 1 Then
Begin
b := b + a[i];
c := c + 1;
End;
If a[i] <= 10 Then
d := d + a[i];
If a[i] Mod 3 = 0 Then
e := e + a[i];
End;
WriteLn('Среднее арифметическое нечётных чисел: ', (b / c):2:2);
WriteLn('Сумма чисел, не превышающих 10: ', d);
WriteLn('Сумма чисел кратных 3: ', e);
ReadLn;
<span>End.</span>
P = a + b + с т.е.сумма длин всех его сторон(из 3)!!)))
Var
a,b: real;
begin
write('Введите a:');readln(a);
write('Введите b:');readln(b);
if a>b then writeln(a,' - максимальное')
else if b>a then writeln(b,' - максимальное')
else
writeln('Значения равны');
end.
PascalABC.NET 3.2:
begin
ArrRandom(20, -100, 100).Println.Sorted.Println;
end.
Пример вывода:
-26 -20 56 33 -94 -76 -29 -72 12 -29 59 -8 17 -65 -34 -6 -64 93 -69 81
-94 -76 -72 -69 -65 -64 -34 -29 -29 -26 -20 -8 -6 12 17 33 56 59 81 93
2)1000 єто правильный ответ