Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program xxx;
var i, k : integer;
a : array [1..10] of real;
begin
write('введите элементы массива а: ');
for i: =1 to 10 do
readln(a[i]);
writeln('исходный массив а: ');
write(a[i]);
k: =0;
for i: =1 to 9 do
if a[i]< > a[10] then k: =k+1;
writeln('элементов отдичных от последнего -', k);
readln
end.
var
n,a: integer;
readln(n);
a: =(n mod 10)*1000+((n mod 100) div 10)*100 + ((n mod 1000) div 100)*10+ n div 1000;
if n> a then
writeln('число ', n, ' больше перевертыша ', a)
else
writeln('перевертыш ', a, ' больше числа ', n);
var a: array[1..15] of char;
i,min,max: integer;
min=1;
max=1;
for i: = 1 to 15 do begin
a[i]: = chr(random(256));
if a[min]> a[i] then min: =i;
if a[max]< a[i] then max: =i;
end;
writeln(a[min], a[max]);
var a : real;
readln(a);
if a> =0 then writeln(a-50) else writeln(a+100);
Популярные вопросы