Алгоритм примерно такой (max - максимальный элемент):
1) max:=a[1];
2) пускаем цикл от двух до n (n - третий, например)
for i:=2 to n do
if max<a[i] then max:=a[i];
Получается, что если наш максимальный элемент, который изначально равен первому элементу массива, меньше какого-либо из последующих, то мы нашему max присваиваем этот элемент
Var x,a:integer;
begin
x:=10;
while (x<100) do
begin
a:=x*x;
if (a<999) then
begin
if (((a mod 10)*100 + ((a mod 100)div 10)*10 + (a div 100))=a)then
writeln(x);
end
else
begin
if (((a mod 10)*1000 + ((a mod 100)div 10)*100 + ((a mod 1000)div 100)*10 + (a div 100))=a)then
writeln(x);
end;
x:=x+1;
end;
end.
С помошью <em>шифрования</em><em> </em><u>можно</u><u> </u><u>огроничить</u><u> </u><u>доступ</u><u> </u><u>постороним</u><u> </u><u>лицам</u><u> </u><u>и</u><u> </u><u>не</u><u> </u><u>кто</u><u> </u><u>не</u><u> </u><u>узнает</u><u> </u><u>содержания</u>
Формула имеет вид:
=ЕСЛИ(И(C2>=4;D2>=4;E2>=4;F2>=4);"да";"нет")
var
i,k:integer;
mas: array[1..10] of shortint;
begin
writeln('Введите 10 чисел');
for i:=1 to 10 do
begin
read(mas[i]);
if mas[i]<0 then inc(k);
end;
writeln('Кол-во отрицательных = ',k);
end.
1. Тип byte в pascal'е от 0 до 255 то есть там априори не может быть чисел < 0
2. я использовал знаковый byte (shortint) он от -128 до 127
