1. 

   AlkaI_I_I New Member

   Заполните одномерный массив размерностью в 20 элементов так, чтобы каждый элемент был равен квадрату своего номера. Сформированный массив вывести наэкран в строку.

    

   AlkaI_I_I, 15 фев 2010

   #1
2. 

   stk) New Member

   Program Frank;
   const n=20;
   TYPE mas=array[1..n] of integer;
   var a:mas;i:integer;
   begin
   for i:=1 to n do begin
   a:=sqr(i);
   write(' ',a);
   end;
   end.
   

    

   stk), 15 фев 2010

   #2

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

Пароль:

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

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