Программа:
const n=5; m=6;
var
a:array[1..n,1..m] of integer;
i,j,s,min,k:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(100);
write(a[i,j]:4);
end;
writeln;
end;
min:=0; k:=1;
for j:=1 to m do min:=min+a[1,j];
writeln('s1 = ',min);
for i:=2 to n do
begin
s:=0;
for j:=1 to m do s:=s+a[i,j];
writeln('s',i,' = ',s);
if s<min then begin min:=s; k:=i; end;
end;
writeln('min сумма = ',min,' (',k,'-я строка)');
end.
Пример:
Исходный массив:
24 61 29 35 82 8
98 58 55 2 11 35
14 46 59 55 79 8
4 25 4 48 83 49
96 27 56 87 91 63
s1 = 239
s2 = 259
s3 = 261
s4 = 213
s5 = 420
min сумма = 213 (4-я строка)
Задача очень простая. Здесь нужно знать всего лишь две формулы N=2^i и V=K·I. Поэтому из первой формулы находим глубину кодирования 32=2^i, i=5(бит). Затем, перемножаем k=1024·240=245760 - Общее количество точек. Отсюда V=245760·5=1228800(бит)=150/1024( Мбайт) { поделите сами, так как получается большая десятичная дробь}
Ребятки, думаю в моём массиве, но не из 15 элементов, а из 55.
У меня может не выдержать крыша, потечет.
D+S
Конь
Карась
Царь
Коня
Карася
Царя
Коню
Карасю
Царю
Конём
Карасём
Царём
То что было использовано:
D
Кон
Карас
Цар
S
ь
я
ю
ём
Ответ:
var b:array[1..100] of integer;
i,p:integer;
begin
p:=1;
repeat
inc(i);
readln(b[i]);
until b[i]=0;
for var j:=1 to i do
begin
if b[j]<0
then p:=p*b[j];
end;
writeln(p);
end.
Объяснение:
Pascal