Роль інформаційних технологій в наш час складно переоцінити. Комп'ютери та програми використовуються повсюдно - від банків до заводів і фабрик. Наприклад бухгалтера і банкіри використовують інформаційні технології для ведення звітності, таблиць та іншого. На заводах і фабриках комп'ютери керують конвеєрами і машинами. Програмісти безпосередньо пов'язані з інформаційними технологіями, так як використовують комп'ютер і програмне забезпечення для написання коду.
Program kursz5; //Название программы uses crt; //Подключение модуля crt const n=10; //Определение неизменяемых переменных const m=10; var //Описание переменных i,j,max,min:integer; a:array[1..n,1..m] of integer; //(Ввод) Объявление массива begin randomize; //Подключение датчика случайных чисел for i:=1 to n do //Ввод чисел для переменных массива for j:=1 to m do a[i,j]:=random(100); //Ввод случайных чисел max:= a[1,1]; //Присвоение к max элементах [1,1] min:= a[1,1]; //Присвоение к min элементах [1,1] for i:=1 to n do //Будем делать пока i < n begin for j:=1 to m do //Будем делать пока i < m begin if a[i,j] > max then // если элемент массива больше max будем делать что ниже max:= a[i,j]; //(Вывод max элемента НЕ ПРАВИЛЬНО) Здесь происходит присвоение к переменной max, Но никак не вывод if a[i,j] < min then //если элемент массива меньше min будем делать следующее min:=a[i,j]; //(Вывод min элемента) Тоже самое, здесь присвоение к переменной min write(a[i,j]:5); - Здесь уже вывод end; writeln; end; writeln(); writeln('max=',max,' min=',min); //Вывод max и min значений end.
//Написать программу, которая упорядочивает цифры в заданном пятизначном числе по убыванию.
var a:array[1..5] of integer; x,i,j:integer; begin Writeln('Введите пятизначное число'); Readln (x); while (x<9999) or (x>99999) do // проверка числа на "пятизначность" begin writeln ('Вы ввели не пятизначное число попробуйте еще раз'); readln (x); end; for i:=1 to 5 do //раскладываем число на отдельные цифры begin a[i]:=x mod 10; x:=x div 10; end; for j:=1 to 4 do //сортировка пузырьком begin for i:=1 to 4-j do begin if a[i]>a[i+1] then begin x:=a[i]; a[i]:=a[i+1]; a[i+1]:=x; end; end; end; for j:=1 to 5 do write (a[j]);//вывод результата end.
Роль інформаційних технологій в наш час складно переоцінити. Комп'ютери та програми використовуються повсюдно - від банків до заводів і фабрик. Наприклад бухгалтера і банкіри використовують інформаційні технології для ведення звітності, таблиць та іншого. На заводах і фабриках комп'ютери керують конвеєрами і машинами. Програмісти безпосередньо пов'язані з інформаційними технологіями, так як використовують комп'ютер і програмне забезпечення для написання коду.
Объяснение: