• ПОМОГИТЕ С ПОЖАЛУЙСТА ИНФОРМАТИКОЙ
    Написать программы ПАСКАЛЬ:
    1) которая сформирует массив из 20 нечетных чисел и подсчитает сумму и среднее арифметическое этих чисел.
    2) которая сформирует массив из 15 случайных чисел от 35 до 75 включительно, найдет количество элементов, значение которых лежит от 50 до 60.

Ответы 3

  • нет не идут
    • Автор:

      apollo3
    • 6 лет назад
    • 0
  • 1 задание uses crt;var a: Array[1..255] of Integer;n, sum, srsum: Integer;beginn := 1;for var i := 1 to 255 doif (i mod 2) <> 0 thenbegin if n = 20 then exit;a[n] := i;inc(n);end;for var i := 1 to 20 dosum := sum + a[i];writeln(srsum div 20); end.2 заданиеuses crt;var a: Array[1..15] of Integer;i, k: Integer;beginRandomize;for i := 1 to 15 dobegina[i] := Random(40) + 35;end;for i := 1 to 15 doif (a[i] <= 60) and (a[i] >= 50) then inc(k);writeln(k);end.
  • Var   A:array[1..20] of integer;   i,S:integer;BeginWrite('Исходный массив: ');For i:= 1 to 20 do    Begin    A[i]:=i*2-1;    Write(A[i],' ');    S:=S+A[i]    End;WriteLn;WriteLn('S = ',S);WriteLn('Sr = ',S/20);End.Var A:array[1..15] of integer;    i,k:integer;BeginRandomize;k:=0;Write('Исходный массив: ');For i:= 1 to 15 do    Begin    A[i]:=random(41)+35;    Write(A[i],' ');    if (A[i]>=50)and(A[i]<=60) then k:=k+1    End;WriteLn;WriteLn('k = ',k)End.
    • Автор:

      cat3kpv
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years