Переведите, пожалуйста, из Паскаля в Кумир uses crt; var i:integer; mas: array [1..10] of...

Question

Переведите, пожалуйста, из Паскаля в Кумир


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.

Answer 1

Алг массив
нач
  цел 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], " "
    все
  кц
кон