Написать программу заполняющую...

Тема в разделе "Информатика", создана пользователем Ветка сакуры, 20 фев 2010.

  1. Ветка сакуры

    Ветка сакуры New Member

    Написать программу заполняющую целочисленный массив из 10 элементов чтобы с 1 по 5 были положительными а с 6 по 10отрицательными
     
    Ветка сакуры, 20 фев 2010
    #1
  2. Den05

    Den05 New Member

    Program Zadacha;
    Var a: Array [1..10] of Integer;
    i: Integer;
    Begin
    Randomize;
    For i := 1 To 5 Do
    a := Random(10);
    For i := 6 To 10 Do
    a := Random(10) - 10;
    WriteLn('Результат:');
    For i := 1 To 10 Do
    WriteLn(a);
    ReadLn;
    End.
     
    Den05, 20 фев 2010
    #2

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

Наша группа