• заменить последний элемент массива кратный 5 нулем паскаль пожалуйстааа​

Ответы 1

  • Ответ:

    =

    Объяснение:

    const

     nmax=100;

    type

     Tarr=array[1..nmax] of integer;

    var

     a:Tarr;

     i,n:integer;

    begin

     randomize;

     repeat

       write('Razmer massiva, ne bolee ',nmax,': ');

       readln(n);

     until n in [1..nmax];

     writeln('Ishodniy massiv:');

     for i:=1 to n do

       begin

         a[i]:=random(50);

         write(a[i]:4);

       end;

     writeln;

     i:=1;

     while (i<=n) and (a[i] mod 5<>0) do

       inc(i);

     if i>n then

       writeln('Net elementov kratyh 5')

     else  

       begin

         a[i]:=0;

         writeln('Poluchenniy massiv:');

         for i:=1 to n do

           write(a[i]:4);

         writeln;

       end;

    end.

    • Автор:

      donavan
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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