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

заполните массив 15 случайными целыми числами из промежутка [1,20]. Выведите на экран элементы массива через 2 пробела .Найдите количество элементов массива , равных 3.(Pascal ABC)

  1. Ответ
    Ответ дан roulen
    var x,i:integer;
    mass:array[1..15]of integer;
    begin
    randomize;
    x:=0;
    for i:=1 to 15 do
    begin
    mass[i]:=random(20)+1;
    if mass[i]=3 then x:=x+1;
    write(mass[i]+' ');
    end;
    writeln('');
    writeln('количество элементов равных трем = '+x);
    end. 
Самые новые вопросы