Предмет: Информатика
Автор: sffsdfsdf
Вопрос задан 2 года назад

ПОМОГИТЕ ПО PASCAL!!! ПОЖАЛУЙСТА!!! ОЧЕНЬ КОРОТКО!
Вывести все двухзначные числа, разность по модулю цифр которых равна 3

sffsdfsdf: Открой пожалуйста пример. Вот по этому примеру: https://imgur.com/a/6XDnML2 . Там нужно ввести размер массива

sffsdfsdf: writeln('Введите размер массива');
readln(n);

begin
writeln('Введите ',i,'-й элемент массива');
readln(a[i]);

write('Полученный массив:');

sffsdfsdf: Чтобы обычному пользователю было понятно, что где.

sffsdfsdf: Вот пример:

var a:array[1..100] of integer;
i,s,n:integer;
begin
writeln('Введите размер массива');
readln(n);
for i:=1 to n do
begin
writeln('Введите ',i,'-й элемент массива');
readln(a[i]);
end;
s:=1;
for i:=2 to n do
if a[s]i:=a[1];
a[1]:=a[s];
a[s]:=i;
write('Полученный массив:');
for i:=1 to n do
write(a[i], ' ');
End.

sffsdfsdf: Только здесь нужно по моему Найти максимальное из чисел an , a1 a2, … , a1 a2 …an и поменять его местами с первым элементом массива.

iolandavalerypad353: там готовая программа на имгуре, только нужно изменить чуть-чуть, после второго цикла for, там где mas[imin] := 2*n + n; нужно вместо этой строки написать две строки:
mas[1] := mas[imin];
mas[imin] := 99999;

sffsdfsdf: Хорошо, спасибо, я попробую)

sffsdfsdf: Так просто, я вообще по другому вывел xD

sffsdfsdf: Если можно, то еще с одним). После кaждoгo cимвoлa “.” Встaвить пpoбeл пoдcчитaть кoличecтвo бyкв “П” и “M” oтдeльно. Пpимеp: https://imgur.com/a/GySsE0W

iolandavalerypad353: begin
var s := ReadlnString();
var (cntP, cntM) := (0, 0);
var res := '';
for var i := 1 to s.Length do
begin
res += s[i];
if s[i] = '.' then
res += ' ';
if s[i].ToUpper = 'П' then
cntP += 1
else if s[i].ToUpper = 'М' then
cntM += 1;
end;
Write(cntP, ' ', cntM, #13#10, res);
end.