Var ar:array[1..s] of integer; n,m,i:integer; begin writeln('N'); readln(n); writeln('M'); readln(m); writeln('Array:'); for i:=1 to s do readln(ar[i]); writeln('First array:'); for i:=1 to s do begin write(ar[i]:4); if ar[i] div n<>0 then ar[i]:=ar[i]+m; end; writeln; writeln('Final array:'); for i:=1 to s do write(ar[i]:4); end.
Пример ввода: 3 3 1 2 3 4 5 Пример вывода: First array: 1 2 3 4 5 Final array: 1 2 6 7 8
Lazarus — открытая среда разработки программного обеспечения на языке Object Pascal для компилятора Free Pascal. Основная цель — предоставление кроссплатформенных и свободных средств разработки в Delphi-подобном окружении (по аналогии с Harbour для Clipper).
Позволяет переносить Delphi-программы с графическим интерфейсом в различные операционные системы: Linux, FreeBSD, Mac OS X, Microsoft Windows, Android[1].
В отличие от MSE — фокус на преобразование проектов Delphi. Библиотека визуальных компонентов — близкая к VCL Lazarus Component Library (LCL), практически полностью поддерживает виджеты Win32, GTK1, GTK2, Carbon[en], Qt, fpGUI, Cocoa, частично — виджеты WinCE[2]. Реализован основной набор элементов управления, редактор форм и инспектор объектов максимально приближены к Delphi; однако полной совместимости с Delphi нет. Интерфейс отладки реализован через GDB. Редактор — с системой подсказок, гипертекстовой навигацией по исходным текстам, автозавершением, автоформатированием (на механизмах Jedi Code Format), поддержкой рефакторинга. Интерфейс и редактор полностью юникодные (UTF-8).
Для компиляции поддерживаются два стиля ассемблера: Intel и AT&T. Также со стороны компилятора поддерживаются различные паскаль-стили: Object Pascal, Turbo Pascal, Mac Pascal, Delphi. Реализован собственный формат управления пакетами. Обеспечивается автосборка среды (под новую библиотеку виджетов). Поддерживаемые для компиляции операционные системы: Linux, Microsoft Windows (Win32, Win64), Mac OS X, FreeBSD, WinCE, OS/2.
Распространяется на условиях GNU General Public License, а значительная часть библиотек, в том числе LCL — на условиях модифицированной GNU Lesser General Public License. Альтернативная сборки среды — CodeTyphon, включает ряд дополнительных пакетов и компонентов, в частности, OpenGL-движок GLScene.
Среди программ, написанных с использованием Lazarus — двухпанельные файловые менеджеры Total Commander и Double Commander, аудиоредактор easyMP3Gain, аналог GNOME для Windows Greengnome, архиватор PeaZip, панель управления дистрибутива Ubuntu, САПР ZCad.
Const
s=5;
Var
ar:array[1..s] of integer;
n,m,i:integer;
begin
writeln('N');
readln(n);
writeln('M');
readln(m);
writeln('Array:');
for i:=1 to s do
readln(ar[i]);
writeln('First array:');
for i:=1 to s do
begin
write(ar[i]:4);
if ar[i] div n<>0 then ar[i]:=ar[i]+m;
end;
writeln;
writeln('Final array:');
for i:=1 to s do
write(ar[i]:4);
end.
Пример ввода:
3
3
1
2
3
4
5
Пример вывода:
First array:
1 2 3 4 5
Final array:
1 2 6 7 8
//Блок-схема во вложении
Lazarus — открытая среда разработки программного обеспечения на языке Object Pascal для компилятора Free Pascal. Основная цель — предоставление кроссплатформенных и свободных средств разработки в Delphi-подобном окружении (по аналогии с Harbour для Clipper).
Позволяет переносить Delphi-программы с графическим интерфейсом в различные операционные системы: Linux, FreeBSD, Mac OS X, Microsoft Windows, Android[1].
В отличие от MSE — фокус на преобразование проектов Delphi. Библиотека визуальных компонентов — близкая к VCL Lazarus Component Library (LCL), практически полностью поддерживает виджеты Win32, GTK1, GTK2, Carbon[en], Qt, fpGUI, Cocoa, частично — виджеты WinCE[2]. Реализован основной набор элементов управления, редактор форм и инспектор объектов максимально приближены к Delphi; однако полной совместимости с Delphi нет. Интерфейс отладки реализован через GDB. Редактор — с системой подсказок, гипертекстовой навигацией по исходным текстам, автозавершением, автоформатированием (на механизмах Jedi Code Format), поддержкой рефакторинга. Интерфейс и редактор полностью юникодные (UTF-8).
Для компиляции поддерживаются два стиля ассемблера: Intel и AT&T. Также со стороны компилятора поддерживаются различные паскаль-стили: Object Pascal, Turbo Pascal, Mac Pascal, Delphi. Реализован собственный формат управления пакетами. Обеспечивается автосборка среды (под новую библиотеку виджетов). Поддерживаемые для компиляции операционные системы: Linux, Microsoft Windows (Win32, Win64), Mac OS X, FreeBSD, WinCE, OS/2.
Распространяется на условиях GNU General Public License, а значительная часть библиотек, в том числе LCL — на условиях модифицированной GNU Lesser General Public License. Альтернативная сборки среды — CodeTyphon, включает ряд дополнительных пакетов и компонентов, в частности, OpenGL-движок GLScene.
Среди программ, написанных с использованием Lazarus — двухпанельные файловые менеджеры Total Commander и Double Commander, аудиоредактор easyMP3Gain, аналог GNOME для Windows Greengnome, архиватор PeaZip, панель управления дистрибутива Ubuntu, САПР ZCad.
Объяснение: