Если в строке ввода набрать больше 6 значений, элементам массива присвоятся первые 6.
При работе программы элементы массива вводятся пользователем с клавиатуры через пробел.
Начало
i = -2..3
Конец
Да
Нет
Ввод
komnaty[i]
При работе программы после каждого введённого элемента пользователь нажимает Enter.
readln
for i:=-2 to 3 do readln(komnaty[i]);
Пользователь вводит эл-ты массива в столбец
с нажатием Enter после ввода каждого значения
Ввод
i-го эл-та
Описать массив из 10 целых чисел. Массив заполняется с клавиатуры первыми 10 натуральными числами.
Начало
Пригла-шение
Резюме
Конец
i=1..10
Ввод
i-го эл-та
Да
Нет
readkey;
Описать массив из 10 целых чисел. Массив заполняется первыми 10 натуральными числами автоматически.
writeln('Введите 10 первых натуральных чисел');
read(N10[i]);
N10[i]:=i;
for i:=1 to 10 do writeln(N10[i]);
Вывод на экран элементов массива в столбец
Вывод
i-го эл-та
Описать массив из 10 целых чисел. Массив заполняется первыми 10 натуральными числами автоматически и выводится на экран в строку с разделителем «подчёркивание».
Начало
Резюме
Конец
i=1..10
Да
Нет
Ввод
i-го эл-та
i=1..10
Да
Вывод
i-го эл-та
Нет
for i:=1 to 10 do
write(N10[i],'_');
uses crt;
var N10: array[1..10] of integer;
i: integer;
begin
for i:=1 to 10 do
writeln('Значения внесены в массив');
for i:=1 to 10 do
readkey;
end.
read(N10[i]);
N10[i]:=i;
writeln('Введите 10 целых чисел');
writeln(N10[i]);
write(N10[i],'_');
Случайные числа в промежутке [0, 1)
N10[i]:=random;
Случайные числа в промежутке [m, m+1)
N10[i]:=random+m;
Случайные числа в промежутке [0, m]
N10[i]:=random(m+1);
Случайные числа в промежутке [m, k]
N10[i]:=random(k-m+1)+m;
Описать массив из 10 целых чисел. Массив заполняется случайными числами из промежутка [1, 6] и выводится в столбец.
N10[i]:=i;
N10[i]:=random(6)+1;
for i:=1 to 10 do
writeln(N10[i]);
randomize;
Это сайт презентаций, где можно хранить и обмениваться своими презентациями, докладами, проектами, шаблонами в формате PowerPoint с другими пользователями. Мы помогаем школьникам, студентам, учителям, преподавателям хранить и обмениваться учебными материалами.
Email: Нажмите что бы посмотреть