Компьютер будущего будет, скорее даже не компьютером в нашем понятии, а отдельной сферой жизни. Это будет общедоступная сеть, связываться и управлять которой можно будет с мысленных сигналов-импульсов, либо голосовых команд. Как таковое устройство будет представлять из себя микрочип, подсоединенный к организму с которого можно будет выходить в это виртуальное пространство, функции которого будут объединять усовершенствованное подобие интернета, и множество уже существующих и новых функций компьютера, телефона, прочей техники и программного обеспечения в принципе.
Const n=10; var a,b:array[1..n] of integer; i,si,smax:integer; begin Writeln('Введите парами длины катетов ',n,' треугольников'); smax:=0; for i:=1 to n do begin Read(a[i],b[i]); si:=a[i]*b[i]; { пополам разделим потом максимальное } if si>smax then smax:=si end; Writeln('Треугольник(и) с максимальной площадью, равной ',smax/2,':'); for i:=1 to n do if a[i]*b[i]=smax then Writeln('№',i,': ',a[i],'x',b[i]); Writeln end.
Пример работы Введите парами длины катетов 10 треугольников 7 16 18 10 9 5 15 11 9 19 15 12 11 13 9 20 14 10 12 8 Треугольник(и) с максимальной площадью, равной 90: №2: 18x10 №6: 15x12 №8: 9x20
