{2 в 1)
Задача: вывести сумму всех нечетных эелементов и сумму элеметнов стоящих на четных позициях}
var
a:array[1..100] of integer;
i, summ1, summ2, n:integer;
begin
summ1 := 0;
summ2 := 0;
randomize;
write('n = '); readln(n);
writeln('Исходный массив :');
for i := 1 to n do
begin
a[i] := random(51) - 25;
write(a[i], ' ');
if abs(a[i]) mod 2 = 1 then
summ1 := summ1 + a[i];
if i mod 2 = 0 then
summ2 := summ2 + a[i];
end;
writeln;
writeln('Сумма нечетных элементов: ', summ1);
writeln('Сумма элементов стоящих на четных позициях: ', summ2);
readln;
end.
Поделитесь своими знаниями, ответьте на вопрос:
1. Дополни предложение, вписывая (копируя) недостающие слова. (Презентация, Видеомагнитофон и проектор, слайдов, Слайд, титульного слайда, Пуск/Все программы/Microsoft Office/ Microsoft Office PowerPoint 2003, Создать, Макеты, Вставка/Рисунок/Картинки, Вставка/Рисунок/Из файла) может содержать текст, картинки, таблицы и другие объекты. Презентация состоит из . 2. Выбери (скопируй) правильный ответ из следующего списка: (Копировать, Справка, Вырезать, Формат по образцу, Создать, Открыть, Вставить, Масштаб, Сохранить, Печать, Предварительный Отменить, Вернуть) standartTools.PNG Кнопка brush.PNG называется . С её можно копировать оформление.
Привезли мне один раз коробку , с телевизором каким то и ещё , как там её , а вспомнила крысой.Нет не с крысой , а с мышью.Думаю : "Зачем мне эта коробка?Лучше бы компьютер купили!" , ну а я то сама не знала что эта самая коробка компьютер.Подхожу к коробке , очень хочется большую круглую кнопку нажать.Ну нажимаю я эту кпопку , а на телевире пишут "Добро Ася " ! Я опять думаю " откуда коробка моё имя знает!" . Моя мать заходит ко мне и говорит ну как тебе компьютер. Ох ,как я испугалась от коробки .;)