// PascalABC.NET 3.2, сборка 1325 от 19.10.2016 begin var L:=new List<integer>; Writeln('Вводите целые числа, окончание ввода по -777'); var n:integer; repeat n:=ReadInteger; if n<>-777 then L.Add(n); until n=-777; Writeln('Исходный список'); Writeln(L); n:=ReadInteger('Введите искомое число:'); var p:=L.FindIndex(k->k=n); // искомый элемент if p<0 then Writeln('Искомый элемент в списке не найден') else begin Writeln('Элемент ',L.Item[p-2],' удален'); L.RemoveAt(p-2); Writeln(L); // удалили и убедились n:=ReadInteger('Введите число для вставки:'); L.Insert(p-1,n); Writeln(L) end end.
Пример Вводите целые числа, окончание ввода по -777 1 6 12 73 -15 34 18 0 24 -777 Исходный список [1,6,12,73,-15,34,18,0,24] Введите искомое число: 34 Элемент 73 удален [1,6,12,-15,34,18,0,24] Введите число для вставки: 1000 [1,6,12,-15,1000,34,18,0,24]
Винер (Wiener) Норберт (26.11.1894, Колумбия, Миссури, — 19.3.1964, Стокгольм) , американский учёный. К 14 годам изучил высшую математику, в 18 лет стал доктором философии Гарвардского университета. С 1919 преподаватель, с 1932 профессор Массачусетского технологического института. Занимался математической логикой и теоретической физикой. В 1920—30-е гг. получил известность как математик работами по теории потенциала, гармоническим функциям, рядам и преобразованиям Фурье, тауберовым теоремам, общему гармоническому анализу. В 1945—47 годах у Винера возникла идея о необходимости создания единой науки, изучающей процессы хранения и переработки информации, управления и контроля. Для этой науки Винер предложил название кибернетика, получившее общее признание. Норберту Винеру принадлежит, несомненно, первое место в пропаганде значения кибернетики во всей системе человеческих знаний.
#include <iostream>
using std::cout;
using std::endl;
int main()
{
const int arraySize = 20;
float cheapest;
float a[arraySize] = { 14.60, 15.50, 53.20, 44.80, 48.60, 12.65, 21.20, 32.50, 51.20, 17.50, 12.65, 14.60, 15.50, 53.20, 44.80, 48.60, 21.20, 32.50, 51.20, 17.50 };
cheapest = a[0];
for(int i = 1; i < arraySize; i++)
{
if(cheapest > a[i])
{
cheapest = a[i];
}
}
cout << "Cheapest candy cost " << cheapest << "grn" << endl;
return 0;
}