MATLAB.Дана матрица - вводится из файла .txt. Создать одномерный массив из элементов главной диагонали. Найти максимальный и минимальный элемент, поменять их местами. Заменить главную диагональ исходной матрицы полученным массивом. Вычисление номера максимального и минимального элемента столбца выполнить через функции
1. Примеров можно привести много: например прикладное ПО Adobe:
-Adobe Photoshop используется в дизайне
-Adobe Dreamweaver в сайтостроении
и т.п.
2.
-программа, выполняющая дефрагментацию диска (оптимизация размещения информации на жестком диске, для более быстрого доступа к ней), например O&O Defrag.
-Антивирусное ПО, например Dr. Web или Kaspersky Antivirus
-Пргораммы, оптимизирующие работу ОС, например CCleaner
-Программы поиска и устранения ошибок в реестре, например Registry Booster
-Файловые менеджеры, например Total Commander
-Программы диагностики системы, такие как EVEREST или AIDA
3.
-Представление учебного материала в форме презентаций (материал, который сопровождается визуальным рядом, более интересен и легче усваивается)
-Доступ к ресурсам интернета (например, доступ к литературе, которую в печатном виде достать проблематично)
-Электронные тесты (удобнее, чем в печатном виде, хотя бы потому, что проще исправлять свои ошибки:) )
-Использование обучающих программ (те же преимущества, что и у презентаций)
// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программа не работает, обновите версию!
begin
Writeln('S=',ReadSeqInteger(3).Select(n->n.ToString
.Where(d->Pos(d,'13579')>0)).SelectMany(c->c)
.Select(c->c.ToDigit).Sum)
end.
Пример
252 337 105
S=24
2. А примерно вот так учат писать в школе - долго и длинно (да и не особо понятно)
var
m,i,j,s,d:integer;
begin
s:=0;
for i:=1 to 3 do begin
Read(m);
for j:=1 to 3 do begin
d:=m mod 10;
if d mod 2<>0 then s:=s+d;
m:=m div 10
end
end;
Writeln('S=',s)
end.