Одномерные массивы вариант №1 1. дан массив целых чисел, состоящий из 20 элементов. заполнить его случайными числами. найти: • сумму элементов, имеющих нечетное значение; • индексы тех элементов, значения которых больше заданного числа а; • в данном массиве положительные элементы (вывести их на экран), кратные k.

286

384

Посмотреть ответы 2

Ответы на вопрос:

ignatevakseniap087h6

Информатика

4,6(8 оценок)

Var s,i,a,k: integer; m: array[1..20]of integer; begin write('введите а и k: '); readln(a,k); writeln('массив: '); for i: =1 to 20 do begin m[i]: =random(20); write(m[i],' '); if m[i] mod 2=1 then s: =s+m[i]; end; writeln; writeln('сумма нечетных: ',s); write('искомыe индексы: '); for i: =1 to 20 do if m[i]> a then write(i,'; '); writeln; writeln('положитеьные, кратые ',k,': '); for i: =1 to 20 do if (m[i]> 0) and (m[i] mod k=0) then write(m[i],'; '); end.

leratsvetik

Информатика

4,7(18 оценок)

Друкова це надрукована онлайн або іншими тобто на папері. Електронна це онлайн в комп'ютері або в іншому гаджеті через який можна комусь переслати на пошту