Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program xxx;
var i, n : integer;
s : real;
a : array [1..20] of real;
begin
writeln('введите размерность массива n=');
readln(n);
write('введите элементы массива а: ');
for i: =1 to n do
readln(a[i]);
writeln('исходный массив а: ');
writeln(a[i]);
s: =0;
if a[i] mod 2 = 0 then s: =s+a[i];
writeln('сумма четных элементов =', s);
readln
end.
pust' x chaek na pervom ostrove,a y na vtorom.
togda iz uslovia mozhno sostavit' sistemu:
x+y=79;
x-15-12=y+12;
togda y=x-39;
x+(x-39)=79;
x=59;
y=59-39=20.
otvet: 59 chaek na pervom ostrove, 20 na vtorom.
1)
var
a,b: array [1..100] of integer;
i,j,k,a,b,f: integer;
randomize;
readln(a);
readln(b);
k: =0;
for i: =1 to 20 do
a[i]: =random(135)-45;
f: =0;
for j: =a to b do
if (a[i]=j) and (a[i] mod 7 =0) then f: =1;
if f=0 then
k: =k+1;
b[k]: =a[i];
end;
for i: =1 to k do
writeln(b[i]);
2)
i,j,k: integer;
readln(k);
j: =0;
for i: =1 to 19 do
if a[i]*a[i+1]> 0 then
j: =j+1;
b[j]: =a[i];
b[j]: =k;
end
else
b[j]: =a[20];
for i: =1 to j do
writeln(b[j]);
3)
a,b: array [1..20] of integer;
i,j,k1,k2: integer;
readln(k1);
readln(k2);
if k1< k2 then
for i: =1 to k1-1 do
b[i]: =a[i];
for i: =k2+1 to 20 do
j: =k2;
for i: =k1 to k2 do
j: =j-1;
по углам комнаты расставить 4 стула и около каждой стены по одному ( ещё 4 стула). всего 8 стульев : )
Популярные вопросы