Составьте программу, которая...

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

  1. grodno_silverman

    grodno_silverman New Member

    Составьте программу, которая формирует массив из 20 случайных целых чисел, каждое из которых находится в диапазоне от -15 до 15, и выводит на экранвначале исходные, а затем только отрицацельные элементы массива
     
    grodno_silverman, 1 янв 2010
    #1
  2. 4eRa

    4eRa New Member

    program z1;
    var
         a:array [1..20] of integer;
         i:integer;
    begin
    for i:= 1 to 20 do
    a:=random(30)-15;
    for i:= 1 to 20 do
    write(a);
    writeln; 
     for i:= 1 to 20 do
    if a<0
    then  write(a);
    end.
     
     
     вроде всё правильно, но желательно всё проверить на программе(у меня удалилась), и ОСОБЕННО проверить строку 7(там в скобках точно не знаю там 30 или 31 должно быть)
     
     
     
     
     
     
     
     
     
    4eRa, 1 янв 2010
    #2

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

Наша группа