Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Помогите с задачами на паскаль
1)Заполните таблицу из 25-ти чисел последовательностью:0,5,10,15,20..
2)Заполните таблицу из 50-ти чисел сдедующей последовательностью:2,5,2,5,2...
3)Заполните таблицу 20-ю первыми натуральными числами , делившимся нацило на 11.

Ответ оставил Гость

Program lab3;const n=10;                   {количество элементов в массиве}
var   A:array [1..n] of real;          {объявление массива А}   i:byte;                                  {переменная для циклов}   b:boolean;                           {идентификатор роста}begin     writeln(vvedite tselie chisla matrici A[,n,,,n,]);     for i:=1 to n do begin                  {циклвводавмассив}         write(A[,i,] = );         readln(A[i]);     end;     writeln;     writeln(matraca imeet vid: );     for i:=1 to n do begin                  {циклвыводамассива}         write(A[i]:3:3,  );        end;     writeln;     b := true;     for i:=1 to n-1 do               {цикл определения роста}          if (A[i] > A[i+1]) then begin  {если текущий больше следующего}             b := false;                                     {значит масив невозростающий}             break;          end;     if (b) then writeln(Masiv A - vozrostaushaya posledovatelnost)     else writeln(Masiv A - ne vozrostaushaya posledovatelnost);     readln;