profile
Опубликовано 6 лет назад по предмету Информатика от djrafal

составьте программу заполнения массива из 100 чисел случайными значениями из диапазона от -20 до 20 Паскаль.

  1. Ответ
    Ответ дан PsyhoAssasin

    Program Massiv;

    Uses Crt;

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

           i:integer;

    begin

        write('Наш Массив:');

        randomize;  

        for i:=1 to 100 do

            begin

                a[i]:=random (40) -20; // Заполняем очередной элемент массива случайным  

                 write(a[i],'  '); // Выводим элемент массива на экран

            end; 

        readkey;

    end. 

     

Самые новые вопросы