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

  • 1) Дан массив а(5) заполненный случайными числами от 0 до 5. Посчитать и вывести на экран сумму всех элементов массива. 2) Дан массив а(20) заполненный случайными числами. Посчитать и вывести на экран кол-во чётных и нечетных элементов массива. Помогоите пожалуйста , нуно срочно завтра сдавать зачет. Заранее спасибо)

Ответы 1

  •  

    1)

    var

    a:array [1..5] of integer;

    i,s:integer;

    begin

    randomize;

    for i:=1 to 5 do begin

    a[i]:=random(6);

    write (a[i],' ');

    s:=s+a[i];

    end;

    writeln;

    writeln (s);

    readln;

    end.

     

    2)

    var

    a:array [1..20] of integer;

    i,k,l:integer;

    begin

    randomize;

    for i:=1 to 5 do begin

    a[i]:=random(6)+5;

    write (a[i],' ');

    if odd(a[i])=false then k:=k+1 else l:=l+1;

    end;

    writeln;

    writeln (k,'   ',l);

    readln;

    end.

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

Еще вопросы

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

Войти через Google

 или

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

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

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