Переписать,

исправив ошибки в программе:

Program

A;

Var

2b, a1: int;

begin

read

(a1)

2b : = a1 + 5;

a1 : = 2b : 2;

write

(2b, a1)

end.

Перепишите программу под pascal using System; namespace ConsoleApplication { class Class { static int [] Input () { Console. WriteLine ("введите размерность массива") ; int n=int. Parse (Console.

Укажите области видимости в программе: Program P; Var x: integer; Procedure P1; Var y: integer; Begin P2; End; Procedure P2; Var z: integer; Begin {Тело процедуры} End; Procedure P3; Var m: integer; Begin P1; End; Begin {Тело основной программы}P3;

Вместо минимального элемента выводиться 0. #include "stdafx. h" #include using namespace std; int main (int argc, char * argv[]) { int A[12]; int n; int sum; int max; int min; int i; for (i = 0; i < 12; i++) { cout

Почему выводится ноль в программе? program pr1; var a: real; n: longint; function power (a:real; n:longint) : real; begin var i: integer; var anew: real; anew:=a; for i: = 2 to n do begin a:=a*anew; end; end; begin readln (a, n) ;

Как переделать в этой задаче на С + + статический массив на динамический? #include using namespace std; int main () { int a[][2] = {2,6,1,9,5,7,0,10}; for (int i = 0; i < 4; i++) if (i % 2 = = 0) { for (int k = 0; k < 2 - 1; k++) for (int j = 0;