1)
var a:array [1..100] of integer; объявляем массив
i,n:byte; объявляем вс переменную i и переменную n для хранения количества элементов
begin
write('Введите n = ');readln(n); вводим n
for i:=1 to n do begin от 1 до n цикл
write('a[',i,']=');
readln(a[i]); вводим элементы в массив
end;
write('Исходный массив: ');
for i:=1 to n do выводим наш массив полностью
write(a[i],' ');
writeln;
write('Результат: '); выводим результат, в данном случае все элементы стоящие на четных местах
for i:=1 to n do
if i mod 2 =0 then write(a[i],' '); проверка на четность, мод - это оператор деления по остатку, если индекс делится на 2 без остатка, то выводим элемент
end.
2)
var a:array [1..100] of integer;
i,n:byte; s:longint; s объявляем для хранения суммы элементов
begin
s:=0; обнуляем s
write('Введите n = ');readln(n); тут тоже самое, что и в первой задаче
for i:=1 to n do begin
write('a[',i,']=');
readln(a[i]);
s:=s+a[i]; вот здесь мы складываем каждый элемент массива в переменную s
end;
write('Исходный массив: ');
for i:=1 to n do вывод массива
write(a[i],' ');
writeln('Сумма всех элементов массива = ',s); вывод суммы
end.
Удачи=)
Компьютерные технологии сегодня широко используются во всех областях человеческой деятельности. Знание предмета и основ информатики имеет большое значение в наши дни. Изучить информатику, в принципе, сможет любой желающий. Просто у кого-то это займёт меньше времени и сил, а у кого-то больше.
Поставьте для себя конкретные цели, которых вы хотите достичь, изучая информатику. Прежде всего, сделайте акцент на основные понятия и процессы. Когда вы оссвоите азы, обучение не будет требовать больших усилий.
n=2014;
var
a:array[1..n]of integer;
i,k:integer;
begin
for i:=1 to n do
a[i]:=random(100);
for i:=2 to n do
if a[i] > 2*a[i-1] then
k += 1;
writeln(k);
end.