Основной аудиторией моего блога являются люди за 50+. То есть люди, которые уже давно закончили школу и университет, но, видимо, не потеряли любовь к точным науками. Давайте проведем маленький Challenge. Сможете ли Вы решить задачу по информатике за 8 класс без использования интернета (гугления, библиотек, готовых решений вроде Excel и других математических пакетов, дающих готовые функции) ? Только Вы, блокнот, черновик и компилятор для проверки :) Готовы и согласны? Тогда ближе к теме... Сегодня...
Задача 1. Массив А вводится с клавиатуры. Найти сумму его элементов. Размер произвольный.
const
n=3;
var
a:array[1..n] of integer;
i,s:integer;
begin
s:=0;
for i:=1 to n do
begin
write('Введите a[',i,']=');
readln(a[i]);
s:=s+a[i];
end;
writeln('S=',s);
end. Задача 2. Массив А вводится с клавиатуры. Найти среднее арифметическое его элементов с нечетными номерами. Размер произвольный.
const
n=5;
var
a:array[1..n] of integer;
i,ind:integer;
s,sr:real;
begin
for i:=1 to n do
begin
write('Введите...