Program mas;
var
mas, p_mas: array[1..15] of integer;
i: integer;
begin
randomize;
for i:= 1 to 15 do
begin
mas[i] := Random(6) + 7;
p_mas[i] := mas[i];
end;
mas[8] := mas[10] + 5;
mas[10] := mas[13];
writeln('Первоначальный массив:');
for i := 1 to 15 do
write(p_mas[i], ' ');
writeln(CRLF + 'Изменённый массив:');
for i := 1 to 15 do
write(mas[i], ' ');
end.
Восемь восемьсот, пять пять пять три пять три пять . проще позвонить чем у кого-то занимать!)
Восемь восемьсот, пять пять пять три пять три пять . проще позвонить чем у кого-то занимать!
Циклы итерационного типа.. это while и repeat? Тогда отличаются тем, что цикл с параметром всегда выполняется конечное число раз, итерационные циклы могут повторяться бесконечно.
Принцип действия цикла FOR(цикла с параметром): при изменении некой переменной от начала до конца выполняется тело цикла. Всё очень просто!
При вызове процедуры с параметрами необходимо указать все необходимые параметры.
Вызов процедур и функций осуществляется путём простого указания их названия в тексте программы (при необходимости - с требуемыми параметрами)
Процедура просто выполняет определённые действия, функция тоже выполняет некоторые действия, плюс она ещё вычисляет и возвращает в программу некоторое значение.
var
n, i: Integer;
s: string;
begin
Write ('Введите натуральное число, больше 9: ');
ReadLn (n);
if n <= 9 then begin
Writeln ('Ошибка ввода!');
Exit;
end;
s := IntToStr (n);
if Length (s) mod 2 <> 0 then begin // проверка на четность
i := Length (s) div 2 + 1; // вычисление позиции центральной цифры
Delete (s, i, 1); // удаление центральной цифры
Writeln ('Результат: ' + s);
end else
Writeln ('Число цифр в числе четно.');
end;
Var
a, b, c:integer;
begin
readln(a, b, c);
if (a<b) then begin
if (a<c) then
writeln(a);
end
else
if (b<c) then
writeln(b)
else
writeln(c);
end.
