Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 10.04.2017 16:00
- Информатика
- remove_red_eye 7810
- thumb_up 35
Ответы и объяснения 2
const n=20;
var m: array[1..n] of integer;
i: integer;
begin
writeln('Введите элементы массива:');
for i:=1 to n do begin
write('m[',i,']=');
readln(m[i]);
end;
writeln;
writeln('Введенный массив:');
for i:=1 to n do writeln(m[i]);
end.
Пример (для n=10):
Введите элементы массива:
m[1]= 13
m[2]= 1
m[3]= 27
m[4]= 12
m[5]= 0
m[6]= 8
m[7]= 38
m[8]= 15
m[9]= 30
m[10]= 31
Введенный массив:
13
1
27
12
0
8
38
15
30
31
2.
const n=9;
var a: array[1..n] of integer;
i: integer;
begin
Randomize;
writeln('Полученный массив:');
for i:=1 to n do begin
a[i]:=random(50);
write('a[',i,']=',a[i]);
if i
writeln;
end.
Пример:
a[1]=15, a[2]=23, a[3]=32, a[4]=19, a[5]=36, a[6]=48, a[7]=42, a[8]=32, a[9]=21
- 11.04.2017 02:10
- thumb_up 17
// Внимание! Если программа не работает, обновите версию!
№1
begin
var a:=ReadArrInteger('Введите 20 целых чисел:',20);
a.PrintLines
end.
Пример
Введите 20 целых чисел: 1 2 3 4 5 6 7 8 9 0 9 8 7 6 5 4 3 2 1 77
1
2
3
4
5
6
7
8
9
0
9
8
7
6
5
4
3
2
1
77
№2
begin
var a:=ArrRandom(9,0,49);
for var i:=0 to 7 do
Write('a[',i+1,']=',a[i],', ');
Writeln('a[9]=',a[8])
end.
Пример
a[1]=49, a[2]=48, a[3]=6, a[4]=18, a[5]=41, a[6]=39, a[7]=3, a[8]=10, a[9]=39
- 12.04.2017 23:49
- thumb_up 15
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.