Задать вопрос
14 апреля, 20:30

Есть переменная P, которая постоянно изменяется. Ее значение нужно 5 раз записать в массив. Однако, вместо того, чтобы массив брал в себя эти 5 значений, он просто "ей становится", то есть если p=4, а потом 5, то массив будет сначала равен 4, а потом заменит 4 на 5. А нужно, чтобы в нем было и 4, и 5. Как это сделать?

Вот малый пример программы: переменная P и цикл c массивом.

uses crt;

var

p, i:integer;

m:array [1 ... 10] of integer;

begin

p:=0;

for i:=1 to 5 do

begin

p:=p+1;

m[i]:=p;

end;

end.

+2
Ответы (1)
  1. 14 апреля, 21:17
    0
    Begin

    for i:=1 to 5 do

    begin

    m[i]:=p;

    end;

    end.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Есть переменная P, которая постоянно изменяется. Ее значение нужно 5 раз записать в массив. Однако, вместо того, чтобы массив брал в себя ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы
Похожие вопросы по информатике
Выберите пункт где описан массив из 15 чисел в Паскале Выберите один из 4 вариантов ответа: 1) a: array[5 ... 15] of integer; 2) a: array[5 ... 19] of integer; 3) a: array[0 ... 15] of integer; 4) a: array[15] of integer;
Ответы (1)
Укажите верное описание целочисленного массива mass, состоящего из 10 элементов. Интервал значений элементов [0; 100] 1) var mass:array of integer; 2) var mass:array[1 ... 10] of integer; 3) var mass:array[0 ... 100] of integer; 4) var mass:array[0 .
Ответы (1)
Ошибка времени выполнения: Индекс находился вне границ массива ... чтто не так? const n=30; var i, j, p, q:integer; c:array[1 ... n, 1 ... n+1] of integer; a:array[1 ... n+1] of integer; b:array[1 ...
Ответы (1)
надо решать через Паскаль. составил две программы и обе со странным ответом. что не то? program qwe; uses crt; var x. s:integer; y:real; begin s:=0; for i: = - 2 to 27 do s:=s+x; y:=s/30 writeln ('srednee arifmeticheskoe=', y) ; readkey; end.
Ответы (1)
Program z17; const n = 60; var c: array [1 ... n] of integer; k, i:integer; Begin randomize; k:=0; for i:=1 to n do c: = random (21) - 10; if i mod 4 = 0 then if c=0 then k:=k+c[i]; end; end; end; writeln (k) ; end.
Ответы (1)