Ввод чисел с клавиатуры и вывод их на экран - Pascal ABC

Узнай цену своей работы

Формулировка задачи:

Всем привет, можете помочь.
На данный момент у меня выводятся 10 чисел( Const m=10) а нужно сделать, чтобы мы вводили с клавиатуры число, и столько же чисел выводилось на экран. Например: Написали 18 и вывелось на экран 18 чисел, и.т.д. Вполне легко, но я так и не разобрался

Решение задачи: «Ввод чисел с клавиатуры и вывод их на экран»

textual
Листинг программы
const m=100;
var mass1:array[1..m] of integer;
    mass2:array[1..m] of real;
    n,i:integer;
 begin
 randomize;
 write('Размер массива n=');
 readln(n);
 for i:=1 to n do  mass1[i]:=random(50);
 for i:=1 to m do
 mass2[i]:=mass1[i]/2;
 write('исходный массив: ');
 for i:=1 to n do
  begin
   mass[i]:=random(50);
   write(mass1[i]:4);
  end;
  writeln;

Объяснение кода листинга программы

  1. const m=100; - задается значение переменной m равное 100
  2. var mass1:array[1..m] of integer; - объявляется переменная mass1 типа array[1..m] of integer, которая будет использоваться для хранения целых чисел
  3. var mass2:array[1..m] of real; - объявляется переменная mass2 типа array[1..m] of real, которая будет использоваться для хранения вещественных чисел
  4. var n,i:integer; - объявляются две переменные типа integer - n и i, которые будут использоваться для цикла ввода и вывода чисел
  5. randomize; - вызывается функция randomize для инициализации генератора случайных чисел
  6. write('Размер массива n='); - выводится сообщение Размер массива n=
  7. readln(n); - считывается значение переменной n с клавиатуры
  8. for i:=1 to n do  mass1[i]:=random(50); - в цикле for i от 1 до n вычисляется случайное число от 0 до 50 и присваивается элементу массива mass1[i]
  9. for i:=1 to m do mass2[i]:=mass1[i]/2; - в цикле for i от 1 до m вычисляется среднее значение элементов массива mass1[i] и присваивается элементу массива mass2[i]
  10. write('исходный массив: '); - выводится сообщение исходный массив:
  11. for i:=1 to n do begin mass[i]:=random(50); - в цикле for i от 1 до n вычисляется случайное число от 0 до 50 и присваивается переменной mass write(mass1[i]:4); - выводится значение элемента массива mass1[i] с префиксом mass1 end;
  12. writeln; - выводится символ новой строки
  13. end. - завершается программа

Оцени полезность:

5   голосов , оценка 4 из 5
Похожие ответы