Где ошибка?

Бану82 24 июл. 2020 г., 19:43:54

Вот так правильно

Program Massiv ;

const n = 10 ;

type TMas = array[1.

N] of integer ;

var mas1 : TMas ;

procedure InputMas1(var mas1 : TMas) ;

var i : integer ;

begin

for i : = 1 to 10 do begin mas1[i] : = random(n) ; Write(mas1[i] : 3) ; end ;

begin InputMas1(mas1) ; readkey ;

end.

Valeriykot2016 8 мая 2020 г., 23:26:20 | 5 - 9 классы

Что делать?

Что делать?

Program n1 ; Type Test = class Private Var a : integer : = 10 ; Public Var b : integer : = 15 ; End ; Begin Var cl : Test : = new Test() ; Writeln(cl.

A) ; / / должно не выполняться но паскалю пофиг Writeln(cl.

B) / / выпонится End.

Кувджулия 29 сент. 2020 г., 23:58:54 | 10 - 11 классы

Что озночают эти строки (Паскаль) : const n = 8 ; Type is = array [1?

Что озночают эти строки (Паскаль) : const n = 8 ; Type is = array [1.

N] of integer ; var a : is ; begin .

End.

Romanmedynskii 28 дек. 2020 г., 19:30:34 | 10 - 11 классы

ПАСКАЛЬ Ошибка : " Нельзя преобразовать тип integer к array [1?

ПАСКАЛЬ Ошибка : " Нельзя преобразовать тип integer к array [1.

40] of integer" var mas : array[1.

40] of integer ; i, max, max1 : integer ; begin max : = 0 ; max1 : = 0 ; For i : = 1 to 40 do begin mas : = random(101) ; write(mas[i] : 4) ; If mas[i]> ; max then max : = mas[i] ; end ; For i : = 1 to 40 do If (mas[i]< ; > ; max) and (mas[i]> ; max1) then max1 : = mas[i] ; writeln ; writeln(max1) ; end.

Йчуметнлщдшщгапм5689 22 авг. 2020 г., 00:02:41 | 5 - 9 классы

Найдите значение переменной А после выполнения программы VAR A : INTEGER BEGIN A : = SQRT(16) : END?

Найдите значение переменной А после выполнения программы VAR A : INTEGER BEGIN A : = SQRT(16) : END.

TasyaSnow 22 дек. 2020 г., 12:59:22 | 5 - 9 классы

Укажите результат выполнения программы var a, b : integer procedure proc(var a : integer ; b : integer) begin b : = 4 ; a : = 6 ; b : = a + b ; end ; begin a : = 2 ; b : = 3 ; proc(a, b) ; writeln(a, ?

Укажите результат выполнения программы var a, b : integer procedure proc(var a : integer ; b : integer) begin b : = 4 ; a : = 6 ; b : = a + b ; end ; begin a : = 2 ; b : = 3 ; proc(a, b) ; writeln(a, ' ', b) ; end.

Masha22081999 21 февр. 2020 г., 18:27:28 | 10 - 11 классы

Много баллов(78) за блок - схему?

Много баллов(78) за блок - схему.

Завтра курсовую сдавать : ( программа на паскале uses crt ; type mas = array [1.

100] of integer ; var b : mas ; p, i, n : integer ; procedure vvod (x : mas ; k : integer) ; var i, p : integer ; begin for i : = 1 to n do begin write('Vvedite chislo : ') ; readln(x[i]) ; end ; for i : = 1 to n do write(x[i] : 3) ; for i : = n downto 1 do if x[i]< ; 0 then p : = i ; writeln ; write(' = ', x[p - 1]) ; writeln ; readln ; end ; begin clrscr ; write('Vvedite kol - vo chisel : ') ; readln((n)) ; vvod (b, n) ; readln ; end.

852741963987 17 сент. 2020 г., 19:17:23 | 10 - 11 классы

Procedure P(x ; var y : integer) ; begin y : = x + 1 end ; procedure Q(x : integer ; var y : integer) ; begin y : = x + 1 end ; procedure R(x, y : integer) ; begin y : = x + 1 end ; Для каждой из проц?

Procedure P(x ; var y : integer) ; begin y : = x + 1 end ; procedure Q(x : integer ; var y : integer) ; begin y : = x + 1 end ; procedure R(x, y : integer) ; begin y : = x + 1 end ; Для каждой из процедур определите, какие из ее параметров являются параметрами - переменными.

В ответ введите суммарное количество параметров - переменных для этих трех процедур.

Пример ввода ответа : 3.

Make96th 18 янв. 2020 г., 03:04:39 | 10 - 11 классы

USES Crt ; const N = 10 ; VAR A : array[1?

USES Crt ; const N = 10 ; VAR A : array[1.

N] of integer ; k : integer ; Function FUN : integer ; Var i, M : integer ; Begin writeln('Введите число M = ') ; readln(M) ; k : = 0 ; for i : = 1 to N do if A[i] FUN : = k ; End ; Procedure SOSTMAS ; Var i : integer ; Begin for i : = 1 to N do begin A[i] : = Random(199) - 100 ; write(A[i] : 5) ; end ; Writeln ; end ; BEGIN SOSTMAS ; Writeln(FUN) ; что то неправильно говорят массив.

Spasibo123 5 февр. 2020 г., 18:45:06 | 10 - 11 классы

Что напечатает данная программа : Var x : = Integer Begin x : = 2 WriteLn('x + 1 = ', x) End?

Что напечатает данная программа : Var x : = Integer Begin x : = 2 WriteLn('x + 1 = ', x) End.

Bk25 19 окт. 2020 г., 06:46:31 | 5 - 9 классы

Определить s : 1) Var s, k : integer ; Begin s : = 0 ; for k : = 14 to 18 do s : = s + 7 ; writeln(s) ; End?

Определить s : 1) Var s, k : integer ; Begin s : = 0 ; for k : = 14 to 18 do s : = s + 7 ; writeln(s) ; End.

2) Var s, k : integer ; Begin s : = 0 ; for k : = 1 to 11 do s : = s + 12 ; write(s) ; End.

3) var s, k : integer ; begin s : = 100 ; for k : = 0 to 10 do s : = s - 5 ; writeln (s) ; end.