28 февраля, 12:10

В массиве сформированным случайным образом все элементы = 0 заменить числом 28!

помогите, нужна постановка программы, блок схема (необязательно) программа,

+3
Ответы (2)
  1. 28 февраля, 12:22
    0
    Program massiv;

    Uses crt;

    Var a:array [0 ... 15] of integer;

    i:integer;

    begin

    For i:=1 to 15 do

    begin

    a[i]:=random (100) ;

    If a[i]=0 then a[i]:=28;

    writeln (a[i]) ;

    end;

    end.
  2. 28 февраля, 13:57
    0
    Var i, n:integer;

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

    begin

    write ('введите кол-во элементов') ;

    read (n) ;

    for i:=1 to n do begin

    a[i]:=random (10) ; write (a[i]) ;

    end;

    for i:=1 to n do begin

    if a[i]=0 then a[i]:=28;

    write (a[i]) ;

    end;

    end.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «В массиве сформированным случайным образом все элементы = 0 заменить числом 28! помогите, нужна постановка программы, блок схема ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы