Дано целое число а. если значение а> 0, то необходимо увеличить его на единицу. написать программу для решения этой . программа должна иметь дружественный интерфейс.
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.
Var a:longint;
Begin
readln(a);
If a>0 then a:=a+1;
writeln(a);
End.