С. наберите на qbasic. 1. найти сумму элементов массива, кратных числу к. 2. найти сумму элементов массива с k1-го и k2-ой, где k1 и k2 вводятся с клавиатуры. 3. найти минимальный элемент массива и его номер. нужно !
Dim a(100) input"введите число k";k for i=1 to 100 a(i)=int(RND(1)*100):print a(i); if a(i) mod k=0 then s=s+a(i) next print "Сумма=";s end
dim a(1000) input k1 input k2 for i=1 to 1000 a(i)=RND(1) next for i=k1 to k2 s=s+a(i) next print s end
dim a(1000) for i=1 to 1000 a(i)=RND(1) print a(i) next min=9999999 for i=1 to 1000 if a(i)<min then n=i if a(i)<min then min=a(i) next print min, n end
// PascalABC.NET 3.3, сборка 1600 от 23.12.2017 // Внимание! Если программа не работает, обновите версию!
begin var (n,m):=ReadInteger2('Количество строк и столбцов в матрице:'); Writeln('*** Исходная матрица ***'); var a:=MatrRandom(n,m,-99,99); a.Println(4); Writeln(4*a.ColCount*'-'); var (q,k):=ReadInteger2('Укажите номера строк q и k:'); Assert((k<>q) and k.Between(1,n) and q.Between(1,n),'Неверная пара (q,k)'); k-=1; q-=1; // перешли к индексам var rk:=a.Row(k); if k<q then begin for var r:=k+1 to q do a.SetRow(r-1,a.Row(r)); a.SetRow(q,rk) end else begin for var r:=k-1 downto q+1 do a.SetRow(r+1,a.Row(r)); a.SetRow(q+1,rk) end; Writeln('*** Результат ***'); a.Println(4) end.
// PascalABC.NET 3.3, сборка 1600 от 23.12.2017 // Внимание! Если программа не работает, обновите версию!
begin var (m,n):=ReadInteger2('Количество строк и столбцов в массиве:'); Writeln('*** Исходный массив ***'); var a:=MatrRandom(m,n,-99,99); a.Println(4); Writeln(4*a.ColCount*'-'); var b:=a.Cols.Select(x->x.Sum).ToArray; b.Println end.
input"введите число k";k
for i=1 to 100
a(i)=int(RND(1)*100):print a(i);
if a(i) mod k=0 then s=s+a(i)
next
print "Сумма=";s
end
dim a(1000)
input k1
input k2
for i=1 to 1000
a(i)=RND(1)
next
for i=k1 to k2
s=s+a(i)
next
print s
end
dim a(1000)
for i=1 to 1000
a(i)=RND(1)
print a(i)
next
min=9999999
for i=1 to 1000
if a(i)<min then n=i
if a(i)<min then min=a(i)
next
print min, n
end