1) var a:array[1..10] of real;
i:integer;
begin
randomize;
for i:=1 to 10 do begin
a[i]:= random(200) -100;
write(a[i]:5); end;
writeln;
for i:=1 to 10 do
if a[i]>=0 then a[i]:=a[i]/2 else a[i]:=i;
write(a[i]:5);
end.
2) var a:array[1..1000] of real;
s1,s2:real;
i,n:integer;
begin
write('Введите кол-во элементов: '); readln(n);
writeln('Введите элементы массивы: ');
for i:=1 to n do
read(a[i]);
s1:=0; s2:=0;
for i:=1 to n do
if odd(i) then s1:=s1+a[i] else s2:=s2+a[i];
writeln('Сумма элементов с четными номерами: ',s2);
writeln('Сумма элементов с нечетными номерами: ',s1);
end.
Микрофон - преопразование звуковых волн в элекрические сигналы
Сканер - преопразовахзние звуковых волн в элекрические сигналы
Монитор - показывает изображение
Мышь - устройство ввода положения курсора
Наушники - вывод звука
Процессор - вычисления сложных и неочень математических операций
Принтер - печатает иображения, текст и т.д.
// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
var
a,b,c,y:real;
begin
Write('Введите через пробел три числа: '); Read(a,b,c);
if a>b then y:=a else y:=b;
if c>y then y:=c;
Writeln('y=',y)
end.
<u><em>Тестовое решение:</em></u>
Введите через пробел три числа: 6.18 -5 2.11
y=6.18
Ответ:
Антенное
Объяснение:
Уйдёт много кабеля, в горах лучше ловит антенное, т. К ближе к спутнику, удобнее
Ответ:
import random as r
s=[r.randint(1,100) for i in range(10)]
print(s)
m1=max(s)
s.remove(m1)
m2=max(s)
print(m1,m2)
Объяснение: