Question

DAU COROANA !!!!!!!!
Se dă tabloul unidimensional A [1..20] de numere întregi. Scrieți un program Pascal care va determina elementul maxim din tabloul A. Utilizați cel puțin un subprogram de tip procedură.

Answer 1

Program Pn;
var
x:array[1..20] of integer;
n,i:integer;
procedure max(n:integer);
var
i,max:integer;
begin
max:=0;
for i:=1 to n do
begin
if max<x[i] then max:=x[i];
end;
Writeln('Elementul maxim=',max);
end;
begin
Writeln('Dati marimea tabloului');
readln(n);
for i:=1 to n do
begin
Write('x[',i,']=');readln(x[i]);
end;
max(n);
readln;
end.