Вопрос по информатике:
Ребят помогите с информатикой) 1) Дан массив от 0 до 100. Найти минимальный нечётный элемент массива.
2) Дан массив от -100 до 100 написать количество положительных и максимальный элемент массива. Всё нужно по Паскалю, пожалуйста)
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 03.11.2015 09:34
- Информатика
- remove_red_eye 6545
- thumb_up 33
Ответы и объяснения 1
1)
USES CRT;
VAR A:array[0..100] of integer;
i,min:integer;
BEGIN
CLRSCR;
Randomize;
Writeln('Дан массив:');
for i:=0 to 100 do
begin
A[i]:=random(150);
Write(A[i],' ');
end;
min:=A[0];
for i:=0 to 100 do
if (A[i] < min) and (A[i] mod 2 0) then min:=A[i];
Writeln;
Writeln('Минимальный нечетный элемент массива = ',min);
READLN;
END.
- 04.11.2015 15:05
- thumb_up 48
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.