Вариант a10: в массиве все четные элементы, стоящие левее минимального, заменить на 0. пример: из массива a[5]: 3 2 1 0 4 должен получиться массив 3 0 1 0 4
Ответы
Var m: array[1..15] of integer; i, count: integer; begin for i : = 1 to 15 do begin m[i] : = random(15); write(m[i]: 3); if(m[i] mod 2 = 0) then inc(count); end; writeln(#10, 'кол-во четных элементов: ', count); end.
18: 3=6 рожков 6-5=1 рожок остался на столе 18-3=15 стаканчиков осталось на столе
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Конфігурація комп'ютера для студента, письменника, кореспондента?
Автор: Чунихина1586
Какие информационные модели используют только графическую информацию?ОзнаковыеообразныеОчисловые
Автор: morozovalexander90
Сколько единец в двоичной записи шестнадцатеричного числа 4b5a16
Автор: Банова_Елена431
program massive; var i,j,s,min,n: integer; a: array [1..10000] of integer; beginreadln(n); for i: =1 to n do readln(a[i]); min: =999; for i: =1 to n doif a[i]< min then beginmin: =a[i]; s: =i; end; for j: =2 to i doif j mod 2=0 then a[j]: =0; for i: =1 to n dowrite(a[i],' '); end.