Здравствуйте,очень срочно!!,нужно решить 2 задания из этой карточки (т.к.1-ое мною...

Question

Здравствуйте,очень срочно!!,нужно решить 2 задания из этой карточки (т.к.1-ое мною решено), а оставшиеся 2 не сходятся во ответе, И ОПРЕДЕЛИТЬ КАКОЙ ОПЕРАТОР (ПРИСВАИВАНИЯ) ВЫПОЛНЯЕТ ТУ ИЛИ ИНУЮ ФУНКЦИЮ.Заранее спасибо;)

---

Comments

и именно с ним, некоторые задания приходится делать в ОГЭ

---

там разве не вольный выбор ?

---

это да)), по-другому и не скажешь

---

Кстати, это не 1-4 класс информатики

---

в 1-4 классах нет информатики

---

а как делается датчик случайных чисел

---

ну когда как, в данных задачах не вольный, а конкретный, и четко разъясняемый

---

короче

---

Я посмотрел в g и ответил

---

датчик случайных чисел решается по такой якобы формуле: Random r = new Random(); int a = r . nextInt(10); int b = r . nextInt(10);

Answer 1

Наверное, это

1.program z;

var a:array [1..10] of integer; i,t:integer; s:real;

begin

for i:=1 to 10 do

begin

a[i]:=random(1,100);

write(a[i]:4);

if (odd(i)) and (odd(a[i])) then

begin

s:=s+a[i];

t:=t+1;

end;

end;

writeln;

write('Cреднее арифметическое = ',s/t);

end.

2.program z;

var a:array[1..10] of integer; max,i:integer;

begin

writeln('Исходный массив');

for i:=1 to 10 do

begin

a[i]:=random(1,100);

write(a[i]:4);

if a[i]>max then max:=a[i];

end;

writeln;

writeln('Измененный массив');

for i:=1 to 10 do

begin

if not(odd(a[i])) then a[i]:=max;

write(a[i]:4);

end;

end.

Comments

1.Const N = 10;Var i,S:integer; m:array [1..N] of integer;Begin        randomize;  S:=0;        for i:=1 to N do begin        m[i]:= random(201)-100;        writeln(m[i]);        end;        for i:=1 to N do         if m[i] mod 2 = 0 then         S:=S+m[i];        writeln('Summa = ',S);         readln;end.2.Const N = 100;Var i,p:integer; B:array [1..N] of integer;Begin        randomize;  p:=0;        for i:=1 to N do begin        B[i]:= random(201)-100;        writeln(B[i]);        end;        for i:=1 to N do         if B[i] mod 3 = 0 then         p:=p*B[i];        writeln('Proiz = ',p);         readln;end.

---

это перепроверить ещё надо

---

я не знаю паскаля, но ты уверен что в конце readln не нужны () ?

---

я не уверен, я же сказал, надо проверить