Var a,b,s:integer;
begin
read(a,b);
for a:=a to b do
s+=a;
writeln(s);
<span>end.</span>
Var
n, k, s: integer;
begin
s := 0;
k := 0;
repeat
write('Введите целое число = ');
readln(n);
if n > 0 then begin
k := k + 1;
s := s + n;
end
until n = 0;
writeln('Среднее арифметическое = ', s / k);
end.
Жёсткий диск ;) А в чем смысл?
После выполнения фрагмента алгоритма мы получаем значение переменной, которое равно
а = 20
#include <iostream>
#include <random>
#include <ctime>
using namespace std;
mt19937 gen(time(0));
uniform_int_distribution<> uid(0, 19);
void replace(int *a, int n, int k)
{
int last = a[n];
for (int i = n - 1; i >= k; i--) {
a[i + 1] = a[i];
}
a[k] = last;
}
int main()
{
int n = 0, k = 0;
cin >> n;
int *a = new int[n];
if (n <= 100) {
for (int i = 0; i <= n; i++) {
a[i] = uid(gen); cout << a[i] << " ";
}
cout << endl; cin >> k;
if (k <= n) {
replace(a, n, k - 1);
for (int i = 0; i <= n; i++) {
cout << a[i] << " "; }
} else {
cout << "Error" << endl;
}
} else {
cout << "Error!" << endl;
}
delete[] a;
return 0;
}