Задать вопрос Регистрация
Помочь другим

  • Составить программу(Паскаль) Сформировать массив (t кол-во элементов 20) случайных чисел,выбранных на интервале от -10 до +10.Вывести кол-во нулевых элементов,сумму элементов кратных 3 и среднее арифметическое всех элементов массива.

Ответы 1

  • var t:array[0..19] of byte;

          i,k,l,s:integer;

    begin      

     

    k:=0;

    l:=0;

    s:=0;

    for i:=0 to 19 do begin

    t[i]:=random(21)-10;

    write(t[i],'   ');

    if t[i]=0 then k:=k+1;

    if t[i] mod 3=0 then s:=s+t[i];

    l:=l+t[i];

    end;

     

    write('колво 0  ',k);

    write('сумма кратных 3 ',s);

    write('средне арефм ',l/20); 

        end.

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

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

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

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