Задайте с генератора случайных чисел массив размерностью до 100 элементов в диапазоне от 1 до 100. присвойте всем нечётным членам значение равное 100 и выведите массив

282

383

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

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

zalomnovavk

Информатика

4,4(93 оценок)

Var a: array [1..7] of real; i: integer; begin write ('массив: '); for i: =1 to 7 do begin a[i]: =random(201)-100; write (a[i],' '); end; writeln; write ('массив * 2: '); for i: =1 to 7 do begin a[i]: =a[i]*2; write (a[i],' '); end; end. это возможно что выше а ниже значение 50 на 1 измени и все uses crt; var mas: array[1..20] of integer; i,b: integer; beginclrscr; randomize; for i: =1 to 20 do beginmas[i]: =random(51)+50; write(mas[i]: 4); end; write('b='); readln(b); for i: =1 to 20 do beginmas[i]: =mas[i]+b; write(mas[i]: 4); end; readkey; end.

uoo32771

Информатика

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

//pascalabc.net 3.1.0.1200 begin var a : = readarrinteger(readinteger('n =')); println(a); var b : = a.where(x -> (x mod 2 < > 0) and (x < ; println(b.count); println(b.sum); println(a.where(x -> (x < > 0) and (x mod 5 = (1, (p, x)-> x * p)); end.