Var i,k:integer;
begin
k:=0;
for i:= 100 to 1000 do if (i mod 5=0) and (i mod 21=0) then k:=k+1;
write(k)
<span>end.</span>
Задача очень простая,наверно муниципальный этап.Вот решение на Python 3
#include <iostream>
#include<ctime>
#include <stdlib.h>
#include <stdio.h>
int main() {
<span> srand(time(NULL));
</span> int a[20];
int maxi,minim,res,i;
i=0;
maxi=-2000;
minim=2000;
printf("Array:");
for(i=0;i<20;i++){
a[i]=rand()%50-25;
printf("%d ",a[i]);
if(maxi<a[i]){
maxi=a[i];}
if(minim>a[i]){
minim=a[i];}
}
minim=abs(minim);
maxi=abs(maxi);
res=maxi-minim;
printf("\n%d",res);
getchar();
getchar();
}<span>
</span>