//Pascal ABC.Net Var b:array[1..60] of longint;i:longint;pr:int64; Begin pr:=1; for i:=1 to 60 do begin b[i]:=random(99)+1; if (b[i] mod 7=0) then pr*=b[i]; end; writeln('Получившийся массив:'); for i:=1 to 60 do write(b[i],' '); writeln; writeln('Произведение чисел кратных 7 равно ',pr); End.
//Если не пашет (ошибка компиляции): //1) В строке if (b[i] mod 7=0) then pr*=b[i]; замени pr*=b[i]; на pr:=pr*b[i]; //2) Если всё равно ошибка компиляции, попробуй int64 заменить на longint //3) Если всё равно ошибка компиляции, longint переименуй в integer.
var a:array[1..60] of integer; i:integer; p:real; begin Randomize; p:=1; for i:=1 to 60 do begin a[i]:=Random(99)+1; Write(a[i],' '); if a[i] mod 7=0 then p:=p*a[i] end; Writeln; Writeln('П=',p) end.
Var b:array[1..60] of longint;i:longint;pr:int64;
Begin
pr:=1;
for i:=1 to 60 do
begin
b[i]:=random(99)+1;
if (b[i] mod 7=0) then pr*=b[i];
end;
writeln('Получившийся массив:');
for i:=1 to 60 do
write(b[i],' ');
writeln;
writeln('Произведение чисел кратных 7 равно ',pr);
End.
//Если не пашет (ошибка компиляции):
//1) В строке if (b[i] mod 7=0) then pr*=b[i]; замени pr*=b[i]; на pr:=pr*b[i];
//2) Если всё равно ошибка компиляции, попробуй int64 заменить на longint
//3) Если всё равно ошибка компиляции, longint переименуй в integer.