• Заменить первый отрицательный элемент нулём. Паскаль АБЦ. Обязательно нужно использовать команду рандомайз. Приведённый ниже пример не является верным. В нём не хватает команды Рандомайз

    var a:array[1..10] of integer;

    i,t:integer;

    Begin

    for i := 1 to 10 do

    read(a[i]);



    for i := 1 to 10 do begin

    if (a[i]<0) and t=0 then begin

    a[i]:=0;

    t:=1;

    end;

    writeln(a[i]);

    end;

    End.

    Помогите пожалуйста

Ответы 4

  • Спасибо вам большое. всё работает.
  • Пожалуйста. Конечно работает, а как иначе?
    • Автор:

      maryjane
    • 6 лет назад
    • 0
  • Пожалуйста, можно ещё два вопроса вам задать. Мне очень надо. Т.к завтра уже сдавать.
    • Автор:

      corey514
    • 6 лет назад
    • 0
  • const  n=10;var  a:array[1..n] of integer;  i:integer;  t:boolean;begin  Randomize;  Writeln('Исходный массив');  for i := 1 to n do  begin    a[i]:=Random(51)-25;    Write(a[i]:4)  end;  Writeln;  t:=false; i:=1;  repeat    t:=(a[i]<0);    if t then a[i]:=0;    Inc(i)  until t;  Writeln('Результирующий массив');  for i := 1 to n do Write(a[i]:4)end.Тестовое решение:Исходный массив  13  12 -19 -23  12 -11 -22 -13  23  -1Результирующий массив  13  12   0 -23  12 -11 -22 -13  23  -1
  • Добавить свой ответ

Войти через Google

или

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

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

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