Const
t = 10;// количество чисел в массиве
var
a: array[1..t] of integer;
i, min, k, tmp, klv, z: integer;
b: boolean;
begin
for i := 1 to t do
a[i] := random(10) + 1; //Рандом чисел от 1 до 10
writeln('Массив:');
for i := 1 to t do
write(' ', a[i]:2);
writeln;
for i := 1 to t - 1 do
for k := i + 1 to t do
if a[i] > a[k] then
begin
tmp := a[k];
a[k] := a[i];
a[i] := tmp;
end;
writeln('После сортировки:');
for i := 1 to t do
write(' ', a[i]:2);
writeln;
klv := 0;
writeln('Введите число X:');
readln(z);
for i := 1 to t do
if a[i] = z then
begin
b := true;
inc(klv);
end;
if b then
begin
writeln('Число ', z, ' встречается ', klv, ' раз(а).');
end;
if b = false then writeln('Число ', z, ' не встречается.');
end.
(0*0)*(0*0)*0 - достаточно последнего *0, чтобы не рассматривать остальное - результатом будет 0
Смотря какой вид ожога,но всегда нужно охладить.Затем можно пользоваться либо народными методами либо современной медециной.
Var a,b,c,d:integer;
begin
readln(a,b,c);
d:=a+b+c;
writeln(d);
<span>end.</span>
4,75 Кбайт
.......................