//PascalABC.Net 3.0, сборка 1064
const
nn=50;
var
a:array[1..nn] of integer;
i,n,imin:integer;
begin
Write('Введите количество элементов в массиве: '); Read(n);
Randomize;
Writeln('Исходный массив');
imin:=1;
for i:=1 to n do begin
a[i]:=Random(51)-25;
Write(a[i],' ');
if a[i]<a[imin] then imin:=i;
end;
Writeln;
for i:=imin to n-1 do a[i]:=a[i+1];
Writeln('Массив-результат');
for i:=1 to n-1 do Write(a[i],' '); Writeln
end.
<em><u>Тестовое решение:</u></em>
Введите количество элементов в массиве: 15
Исходный массив
17 -3 22 18 -13 -5 5 -15 -18 23 17 -2 -20 23 2
Массив-результат
17 -3 22 18 -13 -5 5 -15 -18 23 17 -2 23 2
<em><u>А это версия для тех, кто думает, что Паскалю пора давно "на свалку":</u></em>
//PascalABC.Net 3.0, сборка 1064
begin
var n:=ReadInteger('Введите количество элементов в массиве');
var a:=SeqRandom(n,-25,25).ToArray();
Writeln('Исходный массив:',#13#10,a);
Writeln('Результат:',#13#10,a.Where(x->x<>a.Min));
end.
<em><u>Тестовое решение:</u></em>
Введите количество элементов в массиве 15
Исходный массив:
[-10,-15,8,-19,9,21,-22,-11,12,14,2,19,-25,-5,-15]
Результат:
[-10,-15,8,-19,9,21,-22,-11,12,14,2,19,-5,-15]
<em>Можно сравнить понятность кода и его размер как со "школьным" решением, так и с программой на Java, приведенной в предыдущем ответе.</em>
Напишем программу, которая будет считать сумму всех чисел от 1 до 1000.
<span><span>#include <iostream>
</span>
using namespace std;<span>
int main()
</span>{
int i; // счетчик цикла
int sum = 0; //сумма чисел от 1 до 1000.
setlocale(0, "");
for (i = 1; i <= 1000; i++) // задаем начальное значение 1, конечное 1000 и задаем шаг цикла - 1.
{
sum = sum + i;
}
cout << "Сумма чисел от 1 до 1000 = " << sum <<
endl;
return 0;
}</span>
В Linux панель окна выглядит иначе, если же в Windows XP кнопки развернуть, свернуть, закрыть находятся справа, то в Linux наоборот. Также если брать Ubuntu (Linux) то мы заметим что название папки или директории (где же мы находимся?) то он всегда скрывается, но при наведении на панель окна он сразу появляется, в Windows название папки или путь всегда отображается. Еще одна особенность в том что в Linux всё очень интересно сделано и красиво отсортировано по полачкам. Например: В панель окна Windows вы можете настроить Вид, Файл, Веб-узлы и.т.д. В Linux вы такого не увидите, но за то панель слева как и в Windows 7 отображает все устройства и необходимые папки. Есть достаточно много особенностей которые схожи с Windows. Например: Оформление. Это самое первое что бросается в глаза. В Linux они выглядят иначе, по другому оформлены значки. (И всё очень синхронно, опять же примером является Ubuntu). Как и в Windows и Linux есть контекстное меню которое отображет действие над папками и файлами. Панель навигации (Назад, Вперед, Вырезать, Копировать) в Linux естественно этого нет, но за то панель слева как я уже и сказал в Windows 7, отображает в виде дерева папки открытые нами.
Я бы сказала калькулятор, потому что и счеты, и абак(Греция), и соробан (Китай), это устройства для счета.
Ответ упирается только в то, что требуется первые счетные устройства