Напишите пожалуйста программy...

Тема в разделе "Информатика", создана пользователем SOLD, 19 мар 2010.

  1. SOLD

    SOLD New Member

    Напишите пожалуйста программy на турбо паскале, которая заменяет все отрицательные элементы массиванулями
     
    SOLD, 19 мар 2010
    #1
  2. Spinogryz

    Spinogryz New Member

    Массив одномерный из 10  элементов.

    var a : Array [1..10] Of Real;
            I:integer;
    Begin
    For i:=1 to 10 do read (a); {ввод элементов массива}
    For i:=1 to 10 do {открыт цикл}
             If a < 0 then a:=0; {сравнение элемента массива с нулем и если да то замена}
    For i:= 1 to 10 do write(a); {вывод элементов массива}
    End.
     
    Spinogryz, 19 мар 2010
    #2

Поделиться этой страницей

Наша группа