Задать вопрос
25 ноября, 09:26

Найти ошибки в программе и заполнить пропуски (на месте ... вставить необходимые слова)

var

a: ... [1 ... 100] of integer;

N: integer; / / Количество элементов в массиве

i: real;

begin

... ('Введите количество элементов в массиве: ') ;

readln (N) ;

write ('Введите элементы массива: ') ;

... i:=1 to N do

read (a[i]) ;

write ('Вывод элементов массива: ') ;

for i:=1 to N do

write (a[i],' ') ;

+5
Ответы (1)
  1. 25 ноября, 11:46
    0
    var a: array [1 ... 100] of integer;

    var N: integer; / / Количество элементов в массиве

    var i: integer;

    begin

    write ('Введите количество элементов в массиве: ') ;

    readln (N) ;

    write ('Введите элементы массива: ') ;

    for i:=1 to N do

    read (a[i]) ;

    write ('Вывод элементов массива: ') ;

    for i:=1 to N do

    write (a[i],' ') ;

    Жирный выделил и ошибки и пропуски заполненные. Нужно указывать var перед определением переменой и тип данных переменой i должен быт integer так как является счетчиком
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Найти ошибки в программе и заполнить пропуски (на месте ... вставить необходимые слова) var a: ... [1 ... 100] of integer; N: integer; / / ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Найдите ошибки заполните пустые места var a: ... [1 ... 100] of integer; N: integer; / / Количество элементов в массиве i: real; begin ... ('Введите количество элементов в массиве: ') ; readln (N) ; write ('Введите элементы массива: ') ; ...
Ответы (1)
Почему выводится ноль в программе? 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) ;
Ответы (1)
Сократите эту программу program sr; var a, b, c : real; y, x, xb, xc : real; na, nb, nc: integer; function stup (x: real; n: integer) : real; var i: integer; k: real; begin k:=1; for i : = 1 to n do k : = k * x; stup : = k; end;
Ответы (1)
Определить значение переменной у после выполнения следующих фрагментов программы: a) Var у : real; i : integer; у : = 1; i : = 5; while i> 2 do i: = i - 1; y:=y + 1 * i; b) Var у : real; i : integer; у : = 1; i : = 2; repeat i: = 2 * i;
Ответы (1)
Укажите области видимости в программе: 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;
Ответы (1)