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], " "
    все
  кц
кон