Проверено, работает на Паскаль АВС:
Program rabota_s_massivom;
uses crt;
label metka;
const N=30;
var M: array[1..N] of integer;
i,k,s,kmax,reserve:integer;
begin
for i:=1 to N do
begin
write('Введите ',i,'-й элемент: '); readln(M[i]);
end;
writeln('Массив:');
for i:=1 to N do
begin
write(M[i],' ');
end;
k:=1; {Число элементов в текущей последовательности. Изначально считаем, что последовательность состоит из одного (первого) элемента}
{Ищем первый нечётный элемент:}
repeat
reserve:=reserve+1;
until (m[reserve] mod 2 = 1) or (reserve = 30);
writeln(reserve);
if (m[reserve] mod 2 = 0) and (reserve = 30) then
begin
writeln('Все числа чётные. Искомая последовательность не существует');
goto metka;
end;
s:=M[reserve]; {Сумма элементов текущей последовательности пока что равна первому нечётному элементу}
kmax:=0; {Наибольшая длина последовательности}
for i:=reserve+1 to n do {Перебираем все элементы, начиная с первого нечётного}
begin
if (m[i] mod 2 = 1)
then {Если текущее число всё ещё нечетно}
begin
s:=s+m[i]; {Увеличиваем сумму последовательности}
k:=k+1 {Увеличиваем счётчик длины последовательности}
end
else {Если встретилось четное число}
begin
if k>kmax then {Проверяем, не является ли полученная последовательность длиннее нашего максимума}
begin {Если да:}
kmax:=k; {Запоминаем новую длину последовательности}
reserve:=s {Запоминаем сумму её элементов}
end;
k:=0; {Устанавливаем длину новой последовательности равной 0}
s:=0 {Сумма элементов этой последовательности тоже пока что = 0}
end;
end;
if k>kmax then {Если самая длинная последовательность находится в конце массива, проверим ещё раз текущий максимум}
begin
kmax:=k;
reserve:=s
end;
writeln('самая длинная последовательность нечётных чисел состоит из ',kmax,' элементов');
writeln('и сумма этой последовательности равна ',reserve);
metka: end.
Начнем с плюсов. Бесспорным достоинством компьютера, как технического изобретения, является упрощение и усовершенствование работы во многих отраслях жизни. Главным образом – это рабочие процессы в науке, архитектуре, промышленности. Именно программы, разработанные с помощью компьютерных технологий, позволили сделать важные открытия в области медицины, химии, физики, создать чертежи и графические разработки промышленного оборудования, зданий и сооружений. Развитие нанотехнологий тесно связано с компьютерами. «Бумажная работа» многих специалистов различных сфер деятельности была упрощена за счет появления ПК. Теперь нет необходимости хранить информацию в бумажном виде, создавая склады архивов, ведь есть электронные носители информации, подключаемые к компьютеру.МИНУСЫ Проблемы со спинойДолгое сидение за компьютером происходит, обычно, в неправильной, неудобной позе. Даже если изначально вы держите осанку, то уже через час, а то и раньше, начинаете сутулиться, выдвигая шею вперед или закидывая голову на спинку стула. При этом происходит искривление позвонков и передавливание сосудов. От этого чувствуется слабость, головокружение и даже боли в спине.Влияние на зрениеНапряжение глаз, обращенных в экран монитора, дает о себе знать постепенным ухудшением зрения. Поэтому не ленитесь делать специальные упражнения для глаз, и не сидите за компьютером слишком долго.ИзлучениеХотя всё еще ходят споры о вреде излучения от компьютеров, влияние электромагнитных волн от работающей техники можно ощутить уже после нескольких часов беспрерывной работы - чувствуется общая слабость и нервное напряжение.<span>Потеря времени</span>
Ответ:Язык здесь действительно не имеет значения. Как сказал Никлаус Вирт, "Мы должны учить программированию, а не программированию на конкретном языке". Цикл с предусловием применяют, если необходимо, чтобы в каком-нибудь случае тело цикла не выполнилось ни разу. Ц. с постусловием выполнится как минимум 1 раз.
Объяснение:
Public static void main(String[] args) {
int [] array = {12,1,5,7,13, -1, -5};
int max = 0;
int min = 0;
for(int i = 0; i if(max max = array[i];
if(min>array[i])
min = array[i];
}
System.out.println("Max: "+max);
System.out.println("Min:"+min);
}
600*800*24=11520000 бит = 1140000 байт = 1406,25 Кб = 11,34 Мб
<em>1</em><span><em> Гб=1024Мб </em></span><em>1Мб=1024Кб 1Кб</em><span><em>=1024 байта </em></span><em>1</em><span><em> байт= 8 бит</em></span>
