Var a:array of integer;
n,i,k:integer;
begin
readln(n);
setlength(a,n);
for i:=0 to n-1 do begin
read(a[i]);
if a[i]>7 then begin a[i]:=7; k+=1; end;
end;
writeln(k);
for i:=0 to n-1 do
write(a[i],' ');
<span>end.
var a:array[1..10] of integer;
i,p:integer;
begin
p:=1;
for i:=1 to 10 do begin
read(a[i]);
p*=a[i];
end;
writeln(p);
<span>end.
var a:array of integer;
i,sr,n:integer;
begin
readln(n);
setlength(a,n);
for i:=0 to n-1 do begin
read(a[i]);
sr+=a[i];
end;
writeln(sr/n:3:2);
<span>end.
var a:array of integer;
n,i,k:integer;
begin
readln(n);
setlength(a,n);
for i:=0 to n-1 do begin
read(a[i]);
if a[i]>0 then k+=1;
end;
writeln(k);
<span>end.
var a:array of integer;
n,i,k1,k2:integer;
begin
readln(n);
setlength(a,n);
for i:=0 to n-1 do begin
read(a[i]);
if odd(a[i]) then k2+=1
else k1+=1;
end;
writeln(k1,' ',k2);
<span>end.</span></span></span></span></span>
#include <iostream>#include <iomanip>#include <ctime>
using namespace std;
int main(){ setlocale(LC_ALL, "RUSSIAN"); const int N = 10; int arr[N]; int K, L, sum = 0, sumexcl = 0; srand(time(NULL)); for (int i = 0; i < N; i++) { arr[i] = rand() % 10; sum += arr[i]; } cout << "Введите K >> "; cin >> K; cout << "Введите L >> "; cin >> L; for (int i = 0; i < N; i++) { cout << arr[i] << " "; if((i>=K) && (i<=L)) sumexcl += arr[i]; } sum -= sumexcl; cout << "Результат: " << sum << endl; system("pause");}
1 байт-8 бит
1 Кбайт-1024 байт
1 Мбайт-1024 Кбайт
1 Гбайт-1024 Мбайт
1 Тбайт-1024 Гбайт
1 буква-1 байт
Например Аппарат
У аппарата есть 7 букв
Теперь 7 × 8=56
Документ Word 2007 - в прилагаемом файле
19456 байт =19 килобайт, 1кбайт=1024байт, т.е нужно 19456 разделить на 1024, 19456/1024=19
