Г)4 потому что мы посмотрели сколько одинаковых файлов оставили 1 из каждой группы а другие удалили
Надеюсь что это нужно выполнить на паскале
4. var a: array[1..20] of integer;
p,i:integer;
begin
p:=1;
for i:=1 to 20 do
begin
a[i]:= random(20);
write(a[i]:3);
end;
writeln;
for i:=1 to 20 do
if a[i] mod 2 = 0 then p:=p*a[i];
writeln(p);
end.
5. var a: array[1..100] of integer;
sum,i:integer;
begin
for i:=1 to 100 do
begin
a[i]:= random(100);
write(a[i]:4);
end;
for i:=1 to 100 do
sum:=sum+a[i];
writeln;
writeln(sum);
end.
6. var a: array[1..20] of integer;
sum,i:integer;
begin
writeln('Исходный массив');
for i:=1 to 20 do
begin
a[i]:= random(20);
write(a[i]:3);
end;
for i:=1 to 20 do
if a[i]<10 then
a[i] :=0;
writeln;
writeln('Итоговый массив');
for i:=1 to 20 do
write(a[i]:3);
end.
Program p1;
var i,n,a:integer;
begin
n:=99;
a:=10;
for i :=10 to n do
begin
a:=a+i;
end;
writeln(a);
readln;
end.
Var i,j,s,n:integer;
begin
readln(n);
for i := 1 to n-1 do
begin
s:=0;
for j := 1 to (i div 2) do
if i mod j=0 then s:=s+j;
if s=i then write(i,' ');
end;
end.