я подправила вашу программу, не правильное условие четности
potapin
20.06.2022
Var N:Array[1..20] of integer; i,j,q,k,max:integer;begin Randomize;writeln('массив');for i:=1 to 20 do beginN[i]:= random(100)-50;write(N[i]:4);end;writeln;i:=0;writeln('Измененый массив');While j<20 do beginj:= j + 2; k := N[j-1];N[j-1]:=N[j]; N[j]:= k;end;foreach q in N do beginwrite(q :4);end;end. var N,M:Array[1..20] of integer; i,j,min,q,k,max:integer;begin Randomize;max:=-200; min:=200;writeln('1 массив');for i:=1 to 20 do beginN[i]:= random(100)-50;write(N[i]:4);if ((N[i]>0 )and(N[i] mod 2 = 0))then beginif max < N[i] then max := N[i];if min > N[i] then min := N[i];j:= j + 1;M[j]:=N[i];end;end;writeln;writeln('2 массив');foreach k in M do beginwrite(k:4);end;writeln;if (max = -200) or (min = 200) then write ('нет чётных положительных элементов')else beginwrite('max = ' ,max:4);write(' min = ' ,min:4);end;end.
Vladimirovna Dmitrieva
20.06.2022
Параметры страницы задаются непосредственно перед началом форматирования и размещения в нем различных объектов. Вы можете задать эти параметры и в конце работы над документом, но учтите что, например, при больших значениях полей, внешний вид документа может существенно измениться. Параметры страницы более всего сравнимы с фундаментом здания, и поэтому должны задаваться первыми, ведь все выравнивания в документе привязаны к ориентации страницы и ее полям. Также вы можете осуществлять настройку параметров в общем или по категориям. Начнем с параметров страницы. Когда Вы открывайте программу, панель настроек изначально стоит на вкладке «Главная». Перейдите на вкладку «Разметка страницы» и на панели настроек выберите ПОЛЯ, там перейдите на настраиваемые поля. После этого откроется дополнительное окно, где можно настроить рабочую область листа. Проставьте для начала поля отступа, выберите ориентацию, а если ваш документ на нескольких страницах и вы собирайтесь распечатывать на обе стороны листа, то Вам следует еще поменять функцию Обычный на Зеркальный и нажать на ОК. Это нужно, для того что бы на другой стороне были такие же поля (красные линии, как нас учили в школе). Затем настраиваем параметры шрифта. Так-же нужно настроить масштаб, интервал и смещение всего текста или же только нужных Вам слов
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
с информатикой нужен код который укажет какие числа четные а какие Нечетное в PascalABCКод который на фото пишет все время Нечетное кроме 0
я подправила вашу программу, не правильное условие четности