profile
Опубликовано 4 года назад по предмету Информатика от rezya

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

  1. Ответ
    Ответ дан Mishka28

     

    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.

Другие вопросы
Lenusik
Математика - 4 недели назад

10 сентября был вторник. в какой день недели выпадает 13 августа в этом году?

321
Математика - 1 месяц назад

На 9 машинах доставили 47700 кг зерна, сколько зерна могут перевезти 12 таких машин?

bkmz
Математика - 1 месяц назад

Масса слона на 24т700кгменьше массыкитакаковамассакита если масса слона 5т 800кг

lesiunia
Физика - 1 месяц назад

Рассчитать среднюю скорость: s = 16 км t = 18 мин. ответ в м/с и в км/ч

Kiril
Физика - 1 месяц назад

Сколько часов и минут в -1,3ч и -2,75ч

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.