Вводится массив, состоящий из целых чисел. найти наибольшее среди них. входные данные сначала задано число n — количество элементов в массиве (1n35 далее через пробел записаны n чисел — элементы массива. массив состоит из целых чисел. выходные данные необходимо вывести значение наибольшего элемента в массиве. примеры входные данные 3 1 2 3 выходные данные 3

Var a: array[1..35]of integer; i,max,n: integer; begin readln(n); for i: =1 to n do       read(a[i]); max: =a[1]; for i: =1 to n do       if a[i]> max then           max: =a[i]; writeln; writeln(max); end.

ответ:

program calc1;

uses

  math;

var

  x, y, z, a, b: real;

begin

  write ('введите x: ');

  readln (x);

  write ('введите y: ');

  readln (y);

  write ('введите z: ');

  readln (z);

  a : = power (2, (power (y, + power (power (3, x), y);

  b : = (abs (x - y) * (1 + power (sin (z), 2) / (x + y) )) / (exp (abs (x - y)) + x / 2);

  writeln ('a = ', a : 15 : 10);

  writeln ('b = ', b : 15 : 10);

  readln;

end.

0, 1, 2, 3, 4, 10, 11, 12, 13, 14, 20, 21, 22, 23, 24, 30, 31, 32, 33, 34, 40, 41, 42, 43, 44, 100, 101, 102, 103, 104, 110, 111, 112, 113, 114, 120, 121, 122, 123, 124, 130, 131, 132, 133, 134, 140, 141, 142, 143, 144, 200, 201, 202, 203, 204, 210, 211, 212, 213, 214, 220, 221, 222, 223, 224, 230, 231, 232, 233, 234, 240, 241, 242, 243, 244, 300, 301, 302, 303, 304, 310, 311, 312, 313, 314, 320, 321, 322, 323, 324, 330, 331, 332, 333, 334, 340, 341, 342, 343, 344, 400, 401, 402, 403, 404, 410, 411, 412, 413, 414, 420, 421, 422, 423, 424, 430, 431, 432, 433, 434, 440, 441, 442, 443, 444, 1000, 1001, 1002, 1003, 1004, 1010, 1011, 1012, 1013, 1014, 1020, 1021, 1022, 1023, 1024, 1030, 1031, 1032, 1033, 1034, 1040, 1041, 1042, 1043, 1044, 1100, 1101, 1102, 1103, 1104, 1110, 1111, 1112, 1113, 1114, 1120, 1121, 1122, 1123, 1124, 1130, 1131, 1132, 1133, 1134, 1140, 1141, 1142, 1143, 1144, 1200, 1201, 1202, 1203, 1204, 1210, 1211, 1212, 1213, 1214, 1220, 1221, 1222, 1223, 1224, 1230, 1231, 1232, 1233, 1234, 1240, 1241, 1242, 1243, 1244, 1300, 1301, 1302, 1303, 1304, 1310, 1311, 1312, 1313, 1314, 1320, 1321, 1322, 1323, 1324, 1330, 1331, 1332, 1333, 1334, 1340, 1341, 1342, 1343, 1344, 1400, 1401, 1402, 1403, 1404, 1410, 1411, 1412, 1413, 1414, 1420, 1421, 1422, 1423, 1424, 1430, 1431, 1432, 1433, 1434, 1440, 1441, 1442, 1443, 1444, 2000, 2001, 2002, 2003, 2004, 2010