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.
var
a: array [1..4] of string;
s: string := 'бвгджзйклмнпрстфхцчшщъь';
i, j: byte;
begin
for i := 1 to 4 do
readln(a[i]);
for i := 1 to 4 do
for j := 1 to length(a[i]) do
delete(s, pos(a[i][j], s), 1);
writeln();
writeln(s);
end.
>котики
>это
>несказанное
>добро
>вгжйлмпфхцчшщъь
Var s,t,n:integer;
begin
writeln('введите n>999');
readln(n);
s:=(n div 100);
if s>10 then s:=s mod 10;
t:=(n div 1000);
writeln('количество сотен-->',s);
writeln('количество тысяч-->',t);
end.
A=9, b=8, c=2
if (9>8) and (8>2) ⇒ if True and True ⇒ if True и выполняется оператор после then:
x=2*9+8+2=18+8+2=28
Ответ: х=28
Я учусь в11 классе.
Мне16лет.
Я знаю, что2*2=
4