ummasha

Ладно, запомню это.

Dram

ummasha ты тоже сдаешь егэ по информатике. круто у вас хоть курсы есть уна на информатике оценки ставят только за тупое печатанье текстов. раз накрапал прогу ей (учительнице) говорю вот мол сделал за урок. она мне выдает не парит печатай на оценку. приходится самому изучать основы програмирования. так что я тут тоже буду переодически выдовать тупые вопросы. ни кто не против?

Vladimir_S

Да кому ж тут быть против? Спрашивайте, чем можем - поможем.

Шамиль

А чё так переставить нельзя?
x:= x + y;
y:= x - y;
x:= x - y;

Vladimir_S

Можно.

ummasha

До ЕГЭ по информатике остался один месяц. Ну, кто готовился - тому экзамены не страшны , а остальным может понадобиться помощь. Поэтому я выложу в этой теме некоторые стандартные задачи по программированию. Будут вопросы - задавайте)))

{самый часто встречающийся элемент массива}
Var a:array[1..10] of integer;
i,j,m,k,p:integer;
BEGIN
For i:=1 to 10 do readln(a[i]);
m:=1;p:=1;k:=1;
For i:=1 to 10 do
begin
For j:=1 to 10 do
If a[i]=a[j] then k:=k+1;
If k>m then
begin
m:=k;p:=i;
end;
end;
writeln('самый часто встречающийся элемент ',a[p]);
END.

{сортировка методом пузырька}
Const n=10;
Var a:array[1..n] of integer;
i,j,x:integer;
BEGIN
For i:=1 to n do readln(a[i]);
For i:=1 to n-1 do
begin
For j:=i+1 to n do
begin
If a[i]>a[j] then
begin
x:=a[i];
a[i]:=a[j];
a[j]:=x;
end;
end;
end;
For i:=1 to n do writeln(a[i]);
END.

ummasha

{максимальный из отрицательных элементов массива}
Var a:array [1..10] of integer;
i,k,m:integer;
BEGIN
For i:=1 to 10 do readln(a[i]);
k:=1;
For i:=1 to 10 do
If (a[i]<=0)and(k<=10)then k:=k+1;
If k=11 then writeln('NO')
else
begin
m:=a[k];
For i:=k to 10 do
If (a[i]<0)and(a[i]<m) then
m:=a[i];end;
writeln('m=',m);
END.

{№ элемента, наиболее близкого к заданному числу}
Var
a:array[1..10] of integer;
i,k,m,im:integer;
BEGIN
write('k=');read(k);
For i:=1 to 10 do readln(a[i]);
m:=abs(k-a[1]);
im:=1;
For i:=1 to 10 do
If abs(k-a[i])<m then
begin
m:=abs(k-a[i]);
im:=i;
end;
writeln('N=',im);
END.

{упорядочен ли массив по возрастанию}
Var
a:array[1..10]of real;
i:integer;
f:boolean;
BEGIN
For i:=1 to 10 do readln(a[i]);
f:=true;
For i:=2 to 10 do
If a[i]<a[i-1] then f:=false;
If f then writeln('YES')
else writeln('NO');
END.

ummasha

{скопировать числа, кратные 3, в новый массив}
Var
a,b:array[1..10] of integer;
i,k:integer;
BEGIN
For i:=1 to 10 do readln(a[i]);
k:=0;
For i:=1 to 10 do
If a[i] mod 3=0 then
begin
k:=k+1;
b[k]:=a[i];
end;
For i:=1 to k do write(b[i]:2);
writeln;
END.

{перестановка массива в обратном порядке}
Const n=11;
Var
a:array[1..n] of integer;
i:integer;
BEGIN
For i:=1 to n do readln(a[i]);
For i:=1 to n div 2 do
begin
a[i]:=a[i]+a[n-i+1];
a[n-i+1]:=a[i]-a[n-i+1];
a[i]:=a[i]-a[n-i+1];
end;
For i:=1 to n do write(a[i]:4);
writeln;
END.

{кол-во элементов массива, кот. больше среднего арифметического}
Var
a:array[1..10] of integer;
S,i,k:integer;
Sr_ar:real;
BEGIN
For i:=1 to 10 do readln(a[i]);
S:=0;
For i:=1 to 10 do S:=S+a[i];
Sr_ar:=s/i;
k:=0;
For i:=1 to 10 do
If a[i]>Sr_ar then k:=k+1;
write('k=',k);
END.