1) Дрожжи(так как это не относиться к предмету которыми мы идем или что-то делаем)
2)Хлопоты(так как это не относиться к предмету(названия действий или состояния природы))
3) Дебри(не относиться не к одному из слов)
4)Извините, но я немогу сообразить к чему эти слова не относятся и, что из них надо вычеркнуть.
5)Лазурь( не предмет, а относиться к природе)
6) озимь(всходы, посевы, а остальные относяться к чему-то жесткому)
7) Извините, но я немогу сообразить к чему эти слова не относятся и, что из них надо вычеркнуть...=(((
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.
CLS
PRINT" Введите 10 чисел "
FOR i=1 TO 10
INPUT A
IF (A*A)<100 THEN PRINT A :PRINT " ": PRINT (A*A)
NEXT I
END
3)коньюртер изображен на данной схеме
1.
var
a : integer;
begin
write('введите число: ');
readln(a);
if a mod 2 = 0 then writeln('четное') else writeln('нечетное');
end.
2.
var
x, y : integer;
begin
write('введите x=');
readln(x);
y := x;
writeln('y=', y);
end.
во второй задаче не было указано как считать Y поэтому я просто сделал его равным X. нужную формулу напишешь сам