Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
dim a(12), b(12), c(12)
input "введите размерность массивов а и в - m= ", m
print "введите элементы массивов а и в: "
for i=1 to m
input a(i), b(i)
next i
s=0
for i = 1 to m
c(i)= a(i) + b(m-i+1)
s= s+c(i)
print "массив а: "
print a(i);
print
print "массив b: "
print b(i);
print "массив c: "
print c(i);
print "сумма элементов массива с ="; s
а) 400 * 2,5 = 1000 кб
б) 64 : 2,5 = 25,6 = 25 страниц
в) нужен диск - cd-r или cd-rw
program xxx;
var i, j, k, min : integer;
a: array[1..10, 1..20] of integer;
b: array[1..10] of integer;
begin
for i: =1 to 10 do
for j: =1 to 20 do
readln(a[i,j]);
b[i]: =0;
b[i]: =b[i]+a[i,j];
end;
min: =b[1]; k: =1;
for i: =2 to 10 do
if b[i]< min then begin max: =b[i]; k: =i end;
writeln('наименьшая сумма элементов =', min);
writeln('она находится в строке -', k);
readln
end.
третье, там где пять
5> 4 и не 5> =6
Популярные вопросы