Var a:array [1..1000] of integer;
k,i,n:integer;
begin
write ('kol-vo elementov v massive=');
readln (n);
write ('k=');readln (k);
writeln ('vvedite massiv');
for i:=1 to n do
readln (a[i]);
write ('massiv: ');
for i:=1 to n do
write (a[i],' ');
if (k<=n) and (k>0) then
for i:=k+1 to n do
a[i-1]:=a[i];
writeln;
write ('massiv posle ydalenija: ');
for i:=1 to n-1 do
write (a[i],' ');
end.
S:=a*b все просто
a-длина прямоугольника
b-ширина прямоугольника
1.сабля
2.сборник
3.светлый
4.сгибать
5.сделать
6.север
7.сёмга
8.сжимать
9.сзади
10.силач
11.скатерть
12.слабый
13.смешной
14.сначала
15.собака
16.спасибо
17.сразу
18.стакан
сфотографируй нормально а то 3 столбик не видно.
Определим размер изображения 2362*3543=8368566 пикс.
Определим информационный объём файла 3*8368566=25105698 байт. Переведён в более крупную единицу: 25105698/1024=24517,28Кбайт
Ещё в более крупную: 24517,28/1024=23,98Мбайт. Можно округлить и получим 24 Мбайт