var
tmp, sum : integer;
begin
sum := 0;
while not eoln do
begin
read (tmp);
if (tmp >= 10) and (tmp <= 15) then
sum := sum + tmp;
end;
writeln (sum);
end.
Var
matrix :array[1..4, 1..4] of integer;
min, sum, i, j :integer;
begin
min := maxint;
sum := 0;
for i:=1 to 4 do
for j:=1 to 4 do
read(matrix[i, j]);
for i:=1 to 4 do
for j:=1 to 4 do
begin
if matrix[i, j] < min then
min := matrix[i, j];
sum := sum + matrix[i, j];
end;
for i:=1 to 4 do
for j:=1 to 4 do
if matrix[i, j] < (sum / 16) then
matrix[i, j] := min;
end.
Program z1; const n = 15; Var a: array [1..n] of integer; i:integer; s:real;Begin for i:=1 to n do read(a[i]); for i:=1 to n do write (a[i],' '); s:=0; for i:=1 to n do s:=s+a[i]; s:=s/n; writeln; writeln('Сумма элементов = ',s);End.<span>
</span>
В D1 пиши: $A1+B$1+C$1 в низ по аналогии
Using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
namespace СиШарп
{
class Program
{
static void Main(string[] args)
{
Console.Write("n = ");
int n = int.Parse(Console.ReadLine());
if (n > 4 && n < 21) Console.WriteLine("Мне {0} лет", n);
else
{
int a = n % 10;
if (a == 1) Console.WriteLine("Мне {0} год", n);
else
if (1 < a && a < 5) Console.WriteLine("Мне {0} года", n);
else Console.WriteLine("Мне {0} лет", n);
}
Console.ReadKey();
}
}
}