Программа заполнения массива...

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

  1. SHIRIA

    SHIRIA New Member

    Программа заполнения массива из 100 чисел случайными значениями из диапазоа от -20 до 20.(паскаль)
     
    SHIRIA, 16 янв 2010
    #1
  2. pasatt

    pasatt New Member

    Var
    a:array [1..100] of integer;
    i:integer;
    begin
    randomize;
    write('массив:');
    writeln;
    begin
    for i:=1 to 100 do
    a:=random (40)-20;
    end;
    for i:=1 to 100 do
    writeln(a);
    end.
     
    pasatt, 16 янв 2010
    #2

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

Наша группа