Program ggl; это название программы var n, i, sum : integer; описание переменных a : array [1..1000] of integer; описание массива а (он целочиленный, в интервале от 1 до 1000) begin readln (n); начало программы, запрос значение переменной n sum : = 0; присвоение переменной sum значение 0 begin readln (n); sum : = 0; for i : = 1 to n do begin a[i] : = random (100); write (a[i], ' '); sum : = sum + a[i]; end; begin характеризует начало новой подпрограммы. она - цикл, в котором идет перебор чисел от 1 до значения n, элементам массива a присваиваются рандомные числа от 1 до 100, элементы массива выводятся на экран. после идет подсчет значения переменной sum (причем сначала находится, например, первый элемент массива, а уже после значение переменной sum, после второй элемент массива и он прибавляется к прежнему значению переменной sum). подпрограмма кончается. writeln; write (sum / n); end.вывод значения деления переменной sum на переменную n. конец всей программы.
eeirikh
03.08.2022
Вот программа на c++, только возможности её скомпилировать не было: ( #include < iostream> #include < conio.h> #include < stdio.h> using namespace std; main() { setlocale(0, ""); double m; double k; srand(time(null)); printf("первое случайное число\n"); m = rand() % 1000; cout < < m < < endl; getch(); printf("второе случайное число\n"); k = rand() % 1000; cout < < k < < endl; getch(); printf("сумма: %d",m+k); printf("\nразность: %d",m-k); printf("\nпроизведение: %d",m*k); printf("\nчастное: %d",m/k); getch(); } а это та же, только на паскале: program fofgogjoj; var a,b: real; begin a: =random(1000); b: =random(1000); writeln('первое случайное число равно: ',a); writeln('второе случайное число равно: ',b); writeln; writeln('сумма: ',a+b); writeln('разность: ',a-b); writeln('произведение: ',a*b); writeln('частное: ', a/b: 0: 2); end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Backspace, ce, c, mc, mr, ms, m+, m что означают эти кнопки