Одномерные массивы на Turbo Pascal Даны 2 одномерных массива из [1..10] элементов . В 1-ом массиве увеличить на 4 все элементы больше t , во 2-ом увеличить на K все элементы больше 10k k, t - задаются с клавиатуры .

Предыдущий
вопрос Следующий
вопрос

Пример решения задачи на Turbo Pascal:

program IncreaseArrayElements;
var
arr1, arr2: array[1..10] of integer;
t, k, i: integer;
begin
writeln('Enter t: ');
readln(t);
writeln('Enter k: ');
readln(k);
writeln('Enter elements of array 1:');
for i := 1 to 10 do
begin
readln(arr1[i]);
if arr1[i] > t then
arr1[i] := arr1[i] + 4;
end;
writeln('Array 1 after increasing elements larger than ', t, ' by 4:');
for i := 1 to 10 do
write(arr1[i], ' ');
writeln;
writeln('Enter elements of array 2:');
for i := 1 to 10 do
begin
readln(arr2[i]);
if arr2[i] > 10 * k then
arr2[i] := arr2[i] + k;
end;
writeln('Array 2 after increasing elements larger than ', 10 * k, ' by ', k, ':');
for i := 1 to 10 do
write(arr2[i], ' ');
writeln;
readln;
end.

Программа сначала считывает значения t и k с клавиатуры, затем заполняет массивы arr1 и arr2 элементами, увеличивая элементы больше t на 4 и элементы больше 10 * k на k.