• B правой части каждого сообщения есть стрелки и . Не стесняйтесь оценивать ответы. Чтобы автору вопроса закрыть свой тикет, надо выбрать лучший ответ. Просто нажмите значок в правой части сообщения.

  • 🚨 24 часа до повышения цены на курс «Пентест Active Directory: от теории к практике» от Академии Кодебай

    🔍 Изучите реальные техники атак на инфраструктуру Active Directory: от первоначального доступа до полной компрометации.
    🛠️ Освойте инструменты, такие как BloodHound, Mimikatz, CrackMapExec и другие.
    🧪 Пройдите практические лабораторные работы, имитирующие реальные сценарии атак.
    🧠 Получите знания, которые помогут вам стать востребованным специалистом в области информационной безопасности.

    Последний день записи в текущий поток по старой цене Подробнее о курсе ...

Все Цифры Каждого Элемента Массива Увеличить На 1, А 9 Заменить На 0.

  • Автор темы Автор темы viktorija
  • Дата начала Дата начала
V

viktorija

Здравствуйте! Помогите найти ошибку в программе.
Program zam;
uses crt;
Const n = 30;
d = 51;
Type myarray = Array [1..n] Of Integer;
Procedure Init2(var n1:integer;Var m : myarray );
var i : Integer;
begin
repeat
write('Размер массива от 1 до ',n,'=');
readln(n1);
until n1 in [1..n];
for i:=1 to n1 do
m:=random(d);
end;
Procedure Print1(n1: Integer; m: myarray );
Var i : Integer;
Begin
For i:=1 To n1 Do
Write(m:4);
Writeln;
End;

Procedure zamena (var n1:Integer;Var m:myarray);
Var m:string; i: Integer;
Begin
repeat
readln(m);
i:=1;
while (1<length(m)) do
begin
if (m in ['0'..'9']) then
if odd(i) then
begin
if m='9' then
m:='0'
else
Inc (m);
End;
inc(i);
end;

Begin
clrscr;
Randomize;
Init2(n1,A);
Print1(n1,A);
writeln(m);
Print1 (n1,A);
Readln;
End.
 
Мы в соцсетях:

Взломай свой первый сервер и прокачай скилл — Начни игру на HackerLab

Курс AD