Переведите, пожалуйста, из Паскаля в Кумир
uses crt;
var
i:integer;
mas: array [1..10] of integer;
BEGIN
write('Ishodniy massiv:');
for i:=1 to 10 do
begin
mas[i]:=random(900)+101;
write(mas[i]:4);
end;
writeln;
write('Chisla kratnie 3 i 5:');
for i:=1 to 10 do
if ((mas[i])mod(3)=0) and ((mas[i])mod(5)=0) then {изменилось условие вместо or стало and}
write(mas[i]:4);
END.
uses crt;
var
i:integer;
mas: array [1..10] of integer;
BEGIN
write('Ishodniy massiv:');
for i:=1 to 10 do
begin
mas[i]:=random(900)+101;
write(mas[i]:4);
end;
writeln;
write('Chisla kratnie 3 i 5:');
for i:=1 to 10 do
if ((mas[i])mod(3)=0) and ((mas[i])mod(5)=0) then {изменилось условие вместо or стало and}
write(mas[i]:4);
END.
Answers & Comments
Verified answer
Алг массивнач
цел N = 10
целтаб mas[1:N]
цел i
вывод "Исходный массив: "
нц для i от 1 до N
mas[i] := irnd(101,1000)
вывод mas[i], " "
кц
вывод нс
вывод "Числа, кратные 3 и 5: "
нц для i от 1 до N)
если mod(mas[i],3)=0 и mod(mas[i],5)=0 то
вывод mas[i], " "
все
кц
кон