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

с информатикой.
Как это сделать??


с информатикой. Как это сделать??

Показать ответ
Ответ:
Lilithovhannisyan
Lilithovhannisyan
22.07.2022 23:46

type z=array of byte;

var i,a,b,s: integer;

digits: z;

f: text;

begin

assign(f,'input.txt');

reset(f);

read(f,a);

read(f,b);

close(f);

s:=a+b;

i:=0;

while(s>0) do

begin

setlength(digits,i+1);

digits[i]:=s mod 10;

s:=s div 10;

i:=i+1;

end;

for i:=0 to length(digits)-2 do

for b:=0 to length(digits)-i-2 do

if (digits[b] > digits[b+1]) then

begin

a:= digits[b];

digits[b] := digits[b+1];

digits[b+1] := a;

end;

if(digits[0]=0) then for i:=0 to length(digits)-1 do

if(digits[i]<>0) then

begin

digits[0]:=digits[i];

digits[i]:=0;

break;

end;

assign(f,'output.txt');

rewrite(f);

for i:=0 to length(digits)-1 do write(f,digits[i]);

close(f);

end.

0,0(0 оценок)
Ответ:
aalleeks
aalleeks
25.03.2023 15:46

javascript:var матрица = [];

for (let сч1 = 0; сч1 < 5; сч1++) { матрица.push([]); for (let сч2 = 0; сч2 < 5; сч2++) матрица[сч1].push(Math.random() * 100 | 0); }

var мин = матрица[0][0], н_мин = 0, макс = мин, н_макс = 0;

for (let сч = 1; сч < 5; сч++) if ( let зн_г = матрица[сч][сч], зн_в = матрица[сч][4 - сч]; if (зн_г < мин) { мин = зн_г; н_мин = сч; } else if (зн_в > макс) { макс = зн_в; н_макс = сч; }  )

if (н_мин == 2 && н_макс == 2) for (let сч = 0; сч < 5; сч++) { матрица[сч][сч] = макс; матрица[сч][4 - сч] = макс; }

else { матрица[н_мин][н_мин] ^= матрица[н_макс][н_макс];  матрица[н_макс][н_макс] ^= матрица[н_мин][н_мин];  матрица[н_мин][н_мин] ^= матрица[н_макс][н_макс]; }


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