Ввести двумерный массив a. все элементы, которые при целочисленном делении на n ненулевое значение, увеличить на m. массив вывести до и после преобразования тестовый пример блок схема программа паскаль
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
//Блок-схема во вложении
Nurislamovna1543
01.02.2020
Десятичная Двоичная восьмеричная шестнадцатеричная 0 0 0 0 1 1 1 1 2 10 2 2 3 11 3 3 4 100 4 4 5 101 5 5 6 110 6 6 7 111 7 7 8 1000 10 8 9 1001 11 9 10 1010 12 А (если в двоичной системе цифра 16, то в шестнадцатеричной 10, если 17, то 11 и так далее)
gurina50
01.02.2020
По горизонтали. 1) Удаляет символ слева от курсора. 2) Перелистывание страниц вниз. 3) Предназначены для перевода регистра вводимого символа. 4) Удалить. 5) Альтернатива, изменение действий других клавиш. 6) Фиксирует заглавные буквы. 7) Перелистывание страниц вверх. По вертикали. 1) Отменена действия. 2) Выделить объект на экране и вставить его в документ. 3) Контроль, изменение действий других клавиш. 4) Пауза. 5) Ввод данных, подтверждение, перевод строки. 6) Вставить. 7) Фиксирует режим цифр на цифровой клавиатуре.
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
//Блок-схема во вложении