Vara,b,c,i:longint;
m:array[1..1000] of longint;
Begin
c:=0;
readln(a);
readln(b);
for i:=1 to b do
begin
read(m[i+c]);
if (m[i+c]<0) and (c=0) then
begin
m[i+1]:=a;
c:=1;
end;
end;
for i:=1 to b+1 do
write(m[i],' ');
<span>End.</span>
5) Стоял красивый букет.
Принесли интересную книгу. Получали отличные знания
C#
using System; using<span> System.Text;</span>
class Mean
{
public int main()
{
int len;
Console.Write("Введите диагональ матрицы: "); len=(int)Console.ReadLine();
int[,] matrix = new int[len,len];
Console.WriteLine("Среднее арифметическое: ", average(matrix));
}
public int average(int[] mas)
{
int ans=0;
for(int x = 0; x<mas.Length;x++)
{
ans+=mas[x];
}
return ans;
}
public int[] diagonal(int[,] mas)
{
int[] ans = new int[mas.GetLength(0)];
for(int x=0; x<ans.Length; x++)
{
ans[x]=mas[x,x];
}
return ans;
}
}
Пишу на питоне:
n=int(input())
s=0
for i in range(1,n+1):
s+=i
print(s)
4 - 0000 0100
8 - 0000 1000
6022002 - EB3C