Пошагово:
1) Строки
mas[1]:=14;
. . .
mas[10]:=3;
задают значения элементов массива.
Массив имеет вид:
14 10 -8 6 12 4 -16 -7 5 3
2) переменная s:=0;
3) цикл
for i:=1 to 5 do
mas[2*i]:=0;
все элементы, стоящие на чётных местах, обнуляются.
Массив имеет вид:
14 0 -8 0 12 0 -16 0 5 0
4) цикл
for i:=1 to 10 do
if mas[i]>5 then s:=s+mas[i];
просматриваем массив, и если элемент больше 5, добавляем его в сумму s:
добавится сначала 1-й элемент (так как 14>5), сумма станет 0+14=14
а потом 5-й (12>5), сумма станет 14+12 = 26
5)write(s);
напечатает 26, то есть значание s
Всё!
Program Natasha1925;
uses crt;
const n=50;
var
a:array[1..n] of integer;
tri:array[1..n] of integer;
nom,i: integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
nom:=0;
for i:=1 to n do
begin
write('Введите ',i,'-e число ');
readln(a[i]);
if a[i] mod 3 = 0 then
begin
nom:=nom+1;
tri[nom]:=i;
end;
end;
if nom = 0 then
writeln('Элементов, кратных 3, нет!: ')
else
begin
writeln('Номера элементов, кратных 3: ');
for i:=1 to nom do
begin
write(tri[i],' ');
end;
end;
writeln();
end.
