1) Program n1; const n=5; var a: array [1..n] of integer; i: integer; begin for i:=1 to n do readln(a[i]); for i:=1 to n do if a[i]<0 then writeln(a[i]); end. 2) Program n2; const n=5; var a: array [1..n] of real; i: integer; begin for i:=1 to n do readln(a[i]); for i:=1 to n do a[i]:=a[i]/3; for i:=1 to n do writeln(a[i]); end.
// 8 begin var arr := ArrRandom(10); Sort(arr); arr.Println; Print('Sum = ', arr.Where(x -> x mod 5 = 0).Sum() + newline + 'Count = ', arr.Where(x -> x mod 5 = 0).Count); end.
// 9 begin var arr := ArrRandom(15); arr := arr.OrderByDescending(x -> x).ToArray; arr.Println; Print('array elements squares sum is = ', arr.Sum(x -> x * x)); 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.
Program n1;
const n=5;
var a: array [1..n] of integer;
i: integer;
begin
for i:=1 to n do readln(a[i]);
for i:=1 to n do if a[i]<0 then writeln(a[i]);
end.
2)
Program n2;
const n=5;
var a: array [1..n] of real;
i: integer;
begin
for i:=1 to n do readln(a[i]);
for i:=1 to n do a[i]:=a[i]/3;
for i:=1 to n do writeln(a[i]);
end.