В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
ksusha2311021
ksusha2311021
18.07.2022 17:00 •  Информатика

В Паскале составить программу по смене значений 6 переменных поменять местами
на входе: 123456
на выходе: 631542

Показать ответ
Ответ:
derek56
derek56
11.06.2022 07:24
Var s:string;
n,k,i:integer;
begin
for n:=1 to 2 do
 begin
 writeln('Введите строку ',n,':');
 readln(s);
 k:=0;
 for i:=1 to length(s) do
  begin
  case s[i] of
   '[': k:=k+1;
   ']': k:=k-1;
   end;
  end;
 if k=0 
 then writeln('В строке ',s,' количество [ и ] одинаково')
 else writeln('В строке ',s,' количество [ и ] не одинаково');
 end;
end.

Пример:
Введите строку 1:
c:=a[imax,j]; a[imax,j]:=a[imin,j]; a[imin,j]:=c
В строке c:=a[imax,j]; a[imax,j]:=a[imin,j]; a[imin,j]:=c количество [ и ] одинаково
Введите строку 2:
Просто [ пример ]] со [[ скобками
В строке Просто [ пример ]] со [[ скобками количество [ и ] не одинаково
0,0(0 оценок)
Ответ:
galinarezeda59
galinarezeda59
26.02.2023 19:13

var

A: array [1..100, 1..100] of integer;

i, j, n, y, mini, minj, maxi, maxj, temp: integer;

const

format = 4;

begin

Randomize;

writeln('Введите колличество строк и столбцов через пробел (пример: 3 4)');

read(n, y);

writeln('Исходный массив');

for i := 1 to n do

begin

for j := 1 to y do

begin

A[i, j] := random(40) - 20;

write(A[i, j] : format);

end;

writeln;

end;

mini := 1;

minj := 1;

maxi := 1;

maxj := 1;

for i := 1 to n do

for j := 1 to y do

begin

if A[i, j] < A[mini, minj] then

begin

mini := i;

minj := j;

end ;

if A[i, j] > A[maxi, maxj] then

begin

maxi := i;

maxj := j;

end ;

end;

writeln;

WriteLn('Минимальный = ', A[mini, minj], ' в ', mini, ' строке ', minj, ' колоне.');

WriteLn('Максимальный = ', A[maxi, maxj], ' в ', maxi, ' строке ', maxj, ' колоне.');

temp := A[maxi, maxj];

A[maxi, maxj] := A[mini, minj];

A[mini, minj] := temp;

writeln;

writeln('Преобразованный массив');

for i := 1 to n do

begin

for j := 1 to y do

write(A[i, j] : format);

writeln;

end;

readln;

end.


Нужна ваша Сформировать в паскале двумерный массив приоизвольного размера (размер массива вводить с
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота