формула решения n:= n mod 10; n вводим с клавиатуры. и кстати программа позволяет выдилять последнию цифру не только с 3х значных цифр.
Var
Z:array [1..10] of Integer;
i,max,min:integer;
Begin
WriteLn('Введите массив:');
For i:= 1 to 10 do
Begin
Write('Z(',i,') = ');
ReadLn(Z[i]);
End;
max:=Z[1];
min:=Z[1];
For i:= 2 to 10 do
begin
if (Z[i]>max) then max:=Z[i];
if (Z[i]<min) then min:=Z[i];
End;
Writeln('Наибольшее число = ',max);
Writeln('Наименьшее число = ',min);
end.
Дополнительная память для телефона или для Пк
Задание 3
З 9
И 10
М 14
А 1
1) ихрпщтансснчси - АЛГОРИТМИЗАЦИЯ
2) ушърезаёщ - КОМПЬЮТЕР
3) счаёщчту - ИНТЕРНЕТ
Задание 4
Б 2
А 1
Н 15
К 12
ЖПЮЩЕБ - еопнга (чтобы это не значило)
Хм...видимо вопрос не правильный, у двузначного числа сумма цифр не может быть однозначным числом, только двузначным!
вот тебе код Pascal:
<span>Код Pascal
<span>1
2
3
4
5
6
7
8
9
<span>var a,b,n,kod:integer;
begin
write('Введите двузначное число - ');
readln(n);
a:=n div 10;
b:=n
mod 10;
if a+b>9 then writeln('Сума цифр двузначное число')
else
writeln('Сума не двузначное число');
end.</span></span></span>