С. наберите на qbasic. 1. найти сумму элементов массива, кратных числу к. 2. найти сумму элементов массива с k1-го и k2-ой, где k1 и k2 вводятся с клавиатуры. 3. найти минимальный элемент массива и его номер. нужно !
128
268
Ответы на вопрос:
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
if (a[n]> 0) and (a[n] mod 3=0) then inc(k);
inc(k) это то же самое, что и k: =k+1
Популярно: Информатика
-
aviatorm25.05.2021 19:42
-
kirovaalex1628.03.2020 01:46
-
123у44429.10.2020 05:03
-
викся123123.10.2020 00:23
-
PoLiNaPaSeKo14.05.2021 02:43
-
dima2002eee04.12.2022 05:48
-
юка2828.04.2021 02:40
-
Velichkovskaya19.02.2023 08:58
-
ilonabagdasarya130.03.2022 07:07
-
evstratovamash123.04.2023 07:09