Водномерном массиве найти наибольший положительный элемент и увеличить его в 2 раза.

type

n= array[1..10] of integer;

var

a: n;

i : integer;

fl : integer;

max : integer;

begin

max: =a[1];

randomize;

for i: =1 to 10 do

begin

a[i]: =random(100);

end;

writeln;

fl: =0;

for i: =1 to 10 do

if  a[i]> max then

begin

fl: =fl+2;

writeln('в массиве есть положительные элементы',fl);

end;

end.

Язык с++: #include < iostream> using namespace std; void main(){ int n=5,  k,  f=1; //f - факториал, n - число, фак-ал которого нужно вычислить while(k< =n){ f*=k; k++; } cout< < "факториал числа  "< < n< < " равен : "< < f< < endl; } pascal: program z4; var n, k, f: integer; begin write('введите число, для которого нужно вычислить факториал :   '); readln(n); k: =1; f: =1; while(k< =n) begin f: =f*k; k: =k+1; end; writeln('факториал равен  :   ', f); end.

Не совсем ясно, что необходимо, но отвечу так: алгоритм: 1. сравниваем числа m и n. результат присваиваем некоторой переменной, к примеру max 2. сравниваем max с числом k и присваиваем результат переменной max. и программа на языке pascal, как образец, : var m,n,k: integer; //объявление переменных, как целые числа var max: integer; //для результата begin if(m> n) max: =m else  { max: =n  }; if(max> k) max: =max else {max: =k}; p.s.: заранее извиняюсь за возможные ошибки синтаксиса в коде