СРОЧНО НАДО 1.Заменить первый отрицательный элемент нулем 2.Умножить все элементы, кратные трем, на третий элемент массива 3.Из
5-9 класс
|
элементов массива Р сформировать массив М того же размера по правилу: если номер четный , то Рi=i*Mi, если нечетный, то Рi=-Mi
1)
var
a:array[1..10] of integer;
i:integer;
begin randomize;
for i:=1 to 10 do a[i]:=random(100)-40;
writeln;i:=1;
while i<=10 do begin
if a[i]<0 then begin a[i]:=0;
i:=11;end;
inc(i);
end;
for i:=1 to 10 do write(a[i]:3);
end.
2)
var a:array[1..10] of integer;
i:integer;
begin
for i:= i to 10 do read(a[i]);
Другие вопросы из категории
использовать перфокарты для ввода и вывода данных, изобретение системы
предварительного переноса для ускорения расчетов, введение понятия
циклов операций и рабочих ячеек.
составляла несчаслтивое для эльфа число 11 или более. какую по мишень леголас мог поразить последней, если первая его стрела полетела в мишень с номером 0
Если не будет видно - скажите, я перепишу
Читайте также
мониторы и клавиатуру собрать вместе, то все элементы, кроме двух, будут системными блоками, все элементы, кроме двух - клавиатурами, все элементы, кроме двух, будут мониторами
Сколько компьютеров у Пети дома? Помогите, пожалуйста, решить эту задачу.
различны). Найти минимальный элемент численного массива и его порядковый номер.
арифметическое всех элементов массива a
передать с помощью табло, состоящего из трех таких элементов (при условии, что все элементы должны гореть) ?
передать с помощью табло, состоящего из четырех таких элементов (при условии, что все элементы должны гореть)?