Никогда, никогда не составляйте программу для тех задач, которые можно решить математически!
У нас первое число 5, последнее 50, количество чисел 50/5 = 10.
Имеем сумму арифметической прогрессии:
(5 + 50)/2 * 10 = 275.
Ответ: 275.
Так,це можливо,ця функцiя е у кожнiй поштовiй скринцi
Var
a: array[1..100, 1..100] of integer;
i, j, m, n, count2, countx, x: integer;
begin
{ввод матрицы}
n := 10;
writeln('Данные матрицы:');
for i := 1 to n do
begin
for j := 1 to n do
begin
a[i, j] := random(200) - 100;
write(a[i, j]:4, ' ')
end;
writeln;
end;
write('x = ');
readln(x);
count2 := 0;
countX := 0;
for i := 1 to n do
for j := 1 to n do
begin
if a[i, j] = x then
countX := countX + 1;
if (a[i, j] >= 10) and (a[i, j] <= 99) and ((a[i, j] div 10 + a[i, j] mod 10) mod 2 = 0) then
count2 := count2 + 1;
end;
writeln('countX = ', countX);
writeln('count2 = ', count2);
end.
Var
i,j,n,k: integer;
a,b:array[1..20]of integer;
begin
writeln('Введите N');
readln(n);
for i:=1 to n do
begin
readln(a[i]);
b[i]:=a[i];
end;
for i:=1 to n do
for j:=1 to n do
if b[i]>b[j] then
begin
k:=b[i];
b[i]:=b[j];
b[j]:=k
end;
for i:=1 to n do
if a[i]=b[2] then k:=i;
writeln('k=',k);
<span>end.</span>