Без блок-схемы.
var i,sum,n: Integer;
begin
sum:=0;
for i:=0 to 4 do
begin
writeln('Введите ',i+1,' число');
readln(n);
sum:=sum+n;
end;
writeln('Ответ: ',sum/5);
end.
#include <iostream>
using namespace std;
int main()
{
setlocale(LC_ALL, "Rus");
int n, j;
cout << "введите длину массива ";cin >> n;
int* A = new int[n];
cout << "Введите массив " << endl;
for (int i = 0; i < n; i++) //ввод массива
{
cin >> A[i];
}
for (int i = n - 1; i >= 0; i--)
{
j = i;
while (A[j] == 0 && A[1 + j] != 0 && j + 1 < n)
{
int tmp = A[j + 1];
A[j + 1] = A[j];
A[j] = tmp;
j++;
}
}
cout << "новый массив ";
for (int i = 0; i < n; i++)
{
cout << A[i]<<" ";
}
delete[] A;
return 0;
}
1 байт = 8 битам, тогда 520/8=65 байт