Составить программу в которой пользователь вводит последовательность которая оканчивается на 0 .в количество чисел кратных 3 и оканчивающихся на 7​

ответ:Файл кеңейтімі немесе файл атауының кеңеюі - бұл компьютер файлының соңындағы суффикс. Бұл кезеңнен кейін келеді және әдетте екі-төрт таңбадан тұрады. Егер сіз ешқашан құжатты ашқан болсаңыз немесе суретті қарасаңыз, файлдың соңында сіз осы әріптерді байқаған боларсыз.

Файл кеңейтімдері операциялық жүйеде қандай қолданбалардың қандай файл түрлерімен байланысты екенін анықтау үшін қолданылады - басқаша айтқанда, файлды екі рет шерткенде қандай бағдарлама ашылады. Мысалы, «awesome_picture.webp» деп аталатын файлда «jpg» кеңейтімі бар. Мысалы, бұл файлды Windows жүйесінде ашқан кезде, амалдық жүйе JPG файлдарымен байланысты кез-келген бағдарламаны іздейді, сол бағдарламаны ашады және файлды жүктейді.

Объяснение:

Program z1; 
Var i,n,a,b,c:integer;     
 m: array [1..1000] of integer;
Begin 
write('Введите кол-во чисел - '); 
readln(n);   
randomize;   
a:=0;   b:=0;   c:=0; 
 for i:=1 to n do 
begin   
m[i]:=random(100)-50;   
 write (m[i],' ');  end;    for i:=1 to n do    if (m[i]=0) then a:=a+1;      for i:=1 to n do    if (m[i]>0) then b:=b+1;      for i:=1 to n do    if (m[i]<0) then c:=c+1;  writeln;  writeln ('Кол-во нулей - ',a);  writeln ('Кол-во положительных чисел - ',b);  writeln ('Кол-во отрицательных чисел - ',c);End.