Вариант №2 (с циклом for и заполнением массива с клавиатуры)
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016) const n = 50;
var a: array[1..n]of integer; i, max: integer;
begin max := -MaxInt; for i := 1 to n do begin writeln('Введите ', i, ' число ');readln(a[i]); if a[i] > max then max := a[i]; end; writeln('Максимальное ', max); end.
1. a; c 2. write(); writeln(). Пример: write(c) /поясняю: ln добавляется для перехода на следующую строку при выводе/ 3. Ошибка - в строке "writeln(введите значения переменных m и n);" не указана переменная k. Так же не нужны кавычки в выводе, а при вводе необходимы. Исправление: program prim_a; var m, n, k: integer;
begin writeln('введите значения переменных m, n и k'); read(m,n, k); writeln((m+n+k)*5); end. 4. a) program plowad; var a, h: real;
begin writeln('Введите основание треугольника и высоту'); readln(a, h); writeln('Площадь треугольника равна ', a*h/2); end. 5. program proizvedenie; var a, b: integer;
begin writeln('Введите двузначное число'); readln(a); b:=a mod 10; a:=a div 10; writeln('Произведение цифр двузначного числа равно ', a*b); end.
1) a) не может, потому что переменные должны всегда начинаться с буквы b) может c) не может, слова могут быть разделены только знаком "_",не пробелом! d) может
2) присваивание, обозначается знаком "=" Например: sum = 0;
3) 4 строка - не red, а read пропущена трока между 2 и 3 строчкой - это begin
4) var S, P, a, b: integer begin write('Введите сторону а: '); readln(a); write('Введите сторону b: '); readln(b);
S = a * b; {нахидим площадь} P = (a + b) * 2; {находим периметр}
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
begin
//Для теста заполним массив сл. числами
var a := arrrandom(50); a.Println;
println('Максимальное значение',a.max);
end.
Тестовое решение:
25 78 95 85 97 57 77 49 58 26 36 57 74 24 19 94 66 33 32 43 32 7 64 24 11 2 60 45 6 40 31 19 40 53 80 67 18 26 39 23 53 63 26 18 84 11 11 72 19 79
Максимальное значение 97
Вариант №2 (с циклом for и заполнением массива с клавиатуры)
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
const
n = 50;
var
a: array[1..n]of integer;
i, max: integer;
begin
max := -MaxInt;
for i := 1 to n do
begin
writeln('Введите ', i, ' число ');readln(a[i]);
if a[i] > max then max := a[i];
end;
writeln('Максимальное ', max);
end.