Во всех 2 вопросах ответ 2
1) k=0
Цикл от 1 до 5 в котором проверяется каждый элемент массива на условие a[i]>5 (a[i]-элемент массива) если это истинно то k+1; Цель задачи это количество элементов больших за 5; Ответ: 3
2) Цикл от 1 до 5 в котором проверяется каждый элемент массива на условие четности, если элемент четный то ему присваивают 0 (То есть, если 8 четное, то оно станет 0); Ответ <span>3, 0, 5, 7, 0</span>
Var i,j:integer;
begin
readln(i);
j=(i*i)+(i*3)+1;
writeln(j);
<span>end.</span>
Задание #2
Var r, rz, g, gz, fin: integer;
Begin
r := StrToInt(Edit 1. Text) ;
rz := StrToInt(Edit 2. Text) ;
g := StrToInt(Edit 3. Text) ;
gz := StrToInt(Edit 4. Text) ;
fin := ( r * rz) + ( g * gz) ;
Edit 5. Text := IntToStr(fin) ;
End;
Задание #3
Var x, fom: integer;
Begin
x := StrToInt(Edit 1. Text) ;
fom := ((3 * sqr(x)) /sqrt(x + 2)) - 4;
Edit2.text := IntToStr(fom) ;
End;