// PascalABC.NET 3.2, сборка 1353 от 27.11.2016 // Внимание! Если программа не работает, обновите версию!
begin var a:=ArrRandom(15,1,100); a.Println; var k:=0; for var i:=0 to 14 do if a[i] mod 7=0 then begin k =1; WritelnFormat('A[{0}]={1}',i 1,a[i]) end; if k=0 then Writeln('Заданных элементов в массиве нет') end.
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
