Решение:
const M = 10;
var a : array [1..M] of integer;
i,max, odd : integer;
begin
odd := 0;
{Заполнение массива}
for i := 1 to M do
begin
write('Input a[',i,']:' );
readln(a[i]);
end;
{Вывод массива на экран}
for i := 1 to M do
write(a[i]:2,' ');
writeln;
{Поиск максимального в массиве}
max := a[1];
for i := 2 to M do
if (a[i] > max) then
max := a[i];
writeln('Максимальный элемент массива: ',max);
{Поиск всех нечетных чисел в массиве и замена их на 1}
for i := 1 to M do
if (a[i] mod 2 = 1) then
begin
a[i] := 1;
odd := 666;
end;
{Вывод сообщения об отсутствии нечетных чисел}
if (odd = 0) then
writeln('В массиве нечетных чисел нет');
{Вывод преобразованного массива}
for i := 1 to M do
write(a[i]:2,' ');
writeln;
readln;
end.
В фигурных скобках - комментарии, из программы можно удалять безболезненно. M - количество элементов в массиве.
Контрольные примеры для массива из 10 элементов:
1) Массив "1 2 3 4 5 6 7 8 9 10" будет преобразован в "1 2 1 4 1 6 1 8 1 10", максимальный элемент (до преобразования) 10
2) Массив " 2 2 2 2 2 2 2 2 2 2" будет преобразован в " 2 2 2 2 2 2 2 2 2 2", на экран будет выведено сообщение "в массиве нечетных чисел нет", максимальный элемент 2
В современном мире без компьютера как без рук. Это все равно что есть суп вилкой медленно , и некомфортно. Homosapiens XXI века должен быть не только умным, но и коммуникабельным.Такое чудо техники как планшет сейчас не является чем-то ограниченным ( в плане производства). Он имеет множество функций которые улучшают , облегчат и сделают мою жизнь , жизнь современного ученика более удобным и коммуникабельным.Мне нужен планшет в первую очередь для обучения. Он прост в использовании , поэтому и удобнее. Эта вещь удобная и не занимает много места , а благодаря компактности ней можно пользоваться где угодно. Поскольку я пользуюсь стационарным ПК , и нет возможности приобрести планшет , я считаю , что имею меньшие возможности для работы с информацией.Конечно любой ПК дает возможности для работы , но они , по моему мнению , являются меньшими по сравнению с планшетом .С таким портативным устройством я иметь возможности для более удобного распространения и поиска информации , которая мне необходима в обучении .В будущем я стану студенткой (сейчас я ученица 11 класса ) . Поэтому необходимы учебники я бы смогла хранить в таком планшетном компьютере . Я думаю это удобнее чем носить 5-7 книг в портфеле. Имея планшетный компьютер я смогу пользоваться им персонально , и все хлопоты , связанные с неудобствами в пользовании домашним ПК исчезнут. Планшет значительно облегчит мою работу над исследованиями , докладами , и семинарами в будущем. А сейчас я буду иметь возможность доступа к новой версии программного обеспечения которое предоставит планшетный компьютер , потому что до сих пор работала с Microsoft Office 2003-2007.Я призер олимпиад по информационным технологиям . Поэтому такая вещь в будущем и теперь , когда я планирую связать свою профессию с ИТ , мне просто необходима.<span>Новые технологии - это шаг вперед , шаг в будущее !</span>
N1
var a, b: integer;
• begin
• readln(a, b);
• a := a mod 2;
b := b mod 2;
• if (b > 0) and (a > 0) then
• writeln ('четных чисел нет')
• else
• writeln ('четное число есть');
<span>end.
</span>
N2
#include <iostream>
using namespace std;
int main()
{
int a;
cin >> a;
if(a < 100 || a > 999) cout << "Неверное число" << endl;
else
{
int a1 = a/100;
int a2 = (a/10)%10;
int a3 = a%10;
if(a1%2==a2%2==a3%2==0) cout << "Да" << endl;
else cout << "Нет" << endl;
}
return 0;
}
<em>Ответ:</em>
<em>Сканер. Это отдельное устройство, которое используется для сканирования документов, с последующей отправкой скана в компьютер</em>.
Ральф Джонсон, Эрих Гамма, Ричард Хелм, Джон Влиссидес.
