1. 

   Tau55 New Member

   Сформировать одномерный массив из 15 элементов Заменить все его минимальные элементы число 0. Вывести новый массив наэкран

    

   Tau55, 20 мар 2010

   #1
2. 

   Hannah New Member

   program massiv;
   var a:array[1..15] of integer;
   i:integer;
   begin
   randomize;
   for i:=1 to 15 do begin
   a:=random(50)-25;
   if a<0 then a:=0; writeln('a[',i,']=',a); end;
   end.
   

    

   Hannah, 20 мар 2010

   #2

Ваше имя или e-mail:

Пароль:

Забыли пароль?

Запомнить меня