Const N = 50;
var a: array[1..N] of integer;
sum, i: integer;
begin
sum := 0;
a[ 1 ] := 1;
for i := 2 to N do begin
a[ i ] := a[ i - 1 ] + 4;
sum := a[ i ] + sum;
end;
for i := 1 to N do
writeln('A[ ', i, ' ]: ', a[ i ]);
writeln;
writeln('Сумма элементов массива: ', sum);
writeln('Значения 10, 20, 30, 40 элементов, стоящих в нечетных позициях: ' );
writeln('A[ 13 ] = ', A[13],', A[ 25 ] = ', A[25], ', A[ 37 ] = ', A[37], ', A[ 49 ] = ', A[49]);
<span>end.</span>
Ответ:
<em><u>Алеша</u></em>
Объяснение:
Я не делал этого, это сделал Гриша. Если это высказывание истинно, то клад спрятал Гриша. Тогда Гриша соврал сказав Я не делал этого, это сделал Алёша. Я не делал этого, но и Алёша этого не делал. Но тогда это правда, т.е. получили противоречие => Алеша соврал. Я не делал этого, но и Алёша этого не делал. Пусть это правда, тогда Я не делал этого, это сделал Гриша тоже правда. Противоречие. Тогда правду сказал Гриша. Я не делал этого, это сделал Алёша. Все сходится. Противоречий нет.
1)
uses crt;
var x,y,pr:integer;
begin
read(y,x);
pr:=1;
repeat
pr:=pr*y;
x:=x-1;
until x=0;
write(pr);
end.
2)
uses crt;
var
a:array[1..10] of integer;
pr,i,k:integer;
begin
for i:=1 to 10 do
read(a[i]);
clrscr;
pr:=1;
for i:=1 to 10 do
begin
if a[i]<0 then k:=k+1;
if a[i]>0 then pr:=pr*a[i];
end;
writeln('Исходный массив: ');
for i:=1 to 10 do
write(a[i],' ');
writeln;
if k<>0 then writeln('Отрицательных элементов: ',k) else writeln('Отрицательных элементов нет');
write('Произведение положительных элементов равно: ',pr);
end.
С:\литература\поэзия\пушкин.doc
БГАЕВД