Сортировка методом пузырька:
const n=10;
Var a:array[1..n] of integer; i,j,b:integer;
Begin
for i:=1 to n do read(a[i]);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[j]<a[i] then
begin
b:=a[i];
a[i]:=a[j];
a[j]:=b;
end;
for i:=1 to n do write(a[i],' ');
End.
program raf105;
var
s:string;
a,i:integer;
begin
write('Введите строку: ');
readln(s);
s:= lowercase(s);
for i:=1 to length(s) do
if s[i] = 'а'
then a+= 1;
writeln('В ведённой строке буква "а" встречается ',a,' раз(а)');
end.
<em><u>Язык PascalABC</u></em>
1 способ это выделить фрагмент и удалить его. 2 способ удалить весь рисунок и 3 способ отменить это действие с этим фрагментом
О боги ее еще кто-то использует )))
Смотря какая звезда требуется от минимализма и полноценная графика.
использовать Черепаха
алг звезда
нач
вправо (18)
нц 5 раз
вперед (70)
вправо (2*360/5)
кц
кон
using System;
using System.Linq;
class HelloWorld {
static Random rnd = new Random();
static void Main() {
int N = 10;
int[] arr = new int[N];
for (int i = 0; i < arr.Length; i++)
arr[i] = rnd.Next(-50, 50);
Console.WriteLine("Исходный массив: [{0}]", string.Join(", ", arr));
Console.WriteLine("Четные индексы: [{0}]", string.Join(", ", arr.Where((x, y) => y % 2 == 0)));
Console.WriteLine("Нечетные индексы: [{0}]", string.Join(", ", arr.Where((x, y) => y % 2 != 0)));
}
}