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>

0 0

3 года назад

Помогите , пожалуйста!)

8338

Ответ:

1) a=12;

2) a=22;

3) a=34

4) a=-11

5) uses crt;

var x,a:integer;

f:real;

begin

read(x,a);

f=(10+sqr(x)*x)/(a-2);

writeln(f);

end.

Объяснение:

0 0

4 года назад

Напишите по 2 примера: 1) Предметы-объекты 2)Предметы-явления 3)Предметы-процессы Срочно нужна помощь!

Pevolver [17]

1) стол, книга, блокнот.
2) радуга, гроза.
3) учеба, чтение.

0 0

4 года назад