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

var с:array[1..20] of integer;m:integer;begin;randomize;for m:=1 to 20 dobegin;с[m]:=random(0,20);write(с[m],'   '); //самому отвратно так делать, но что поделаешь, десуend;end.

uses crt;var с:array[1..20] of integer;m:integer;beginclrscr;randomize;for i:=1 to 20 dobegin;с[i]:=random(20)+1;write(с[i],'   ' ); end;readkey;end.