Не указано на каком языке программирования нужно, поэтому напишу уж на Паскале. Всё сделал так, чтобы было понятно, хоть и не так компактно.
Var x, y, z:integer;
Begin
Write('Введите числа X, Y и Z^: ');
Readln(x, y, z);
If x mod 5=0 then x:=x+1;
If y mod 5=0 then y:=y+1;
If z mod 5=0 then z:=z+1;
Writeln('Полученные в итоге числа(X, Y, Z):', x, ', ', y, ', ', z);
End.
Program name;
var
a,b:integer;
begin
//Переменная B является сложным процентом за год
b:=0.24;
а:=10000*b;
a:=a+10000;
writeln('Остаток вклада за один год:',а);
а:=0;
b:=0,48;
a:=10000*b;
a:=a+10000;
writeln('Остаток за второй год:',a);
end.
Собака зарыта в строчках
var a:array of integer
...
read(a[i][j])
Смысл в том, что a, похоже, объявлен как одномерный массив, а по твоей задумке он двумерный. Поставь там инициализацию двумерных массивов.
(В PascalABC.Net, если ты тоже в этой среде и этом диалекте, то там я ручаюсь, что там правильно <span>var a:array [,] of integer</span>. Хотя допускаю, что везде одинаково).
Как-то условие не очень понятно. Если требуется найти сумму ДВУХ чисел, то программа может быть такой:
var a1,a2,s: integer;
begin
a1:=11;
a2:=13;
repeat
a1:=a2;
a2:=a2+2;
s:=a1+a2;
until s>=150;
writeln(a1,'+',a2,'=',s);
<span>end.
Результат работы программы:
75+77=152
Если нужно найти сумму 11+13+15+ ..., по ка не получится >=150, то это можно сделать так:
var a,s: integer;
begin
a:=11;
s:=0;
repeat
write(a,'+');
s:=s+a;
a:=a+2;
until s>=150;
writeln('=',s);
<span>end.
Результат:
11+13+15+17+19+21+23+25+27+=171</span></span><span><span>
</span></span>