Pascalabc составьте программу, которая заполняет массив b[1..8] случайными целыми числами в диапазоне от 1 до 10 и находит количество элементов с нечётными значениями.

153

179

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

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

mishka1330

Информатика

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

Var a: array[1..8] of integer; i,k: integer; begin for i: =1 to 8 do begin a[i]: =random(1,10); write(a[i],' '); end; for i: =1 to 8 do if a[i] mod 2=0 then k: =k+1; wrieln(k); end.

ilyazavrik

Информатика

4,5(26 оценок)

Int main(){ setlocale(lc_all, "ru"); srand(time(0)); int *nume = new int[501]; int max = nume[0]; int i = 0,k=0,sa=0,help=0; for (i; i < 501; i++) { nume[i] = (-1 - rand()%10); cout < < i< < " = "< < nume[i] < < endl; k++; sa += nume[i]; help = sa / k; if (nume[i]> max) { max = nume[i]; } } cout < < endl; cout < < "сумма элементов: "< < sa< < endl; cout < < "ср. арифм: "< < help< < endl; cout < < "максимальное: " < < max; cout < < endl; delete[] nume; system("pause"); return 0; }