Одномерные массивы на turbo pascal даны 2 одномерных массива из [1..10] элементов . в 1-ом массиве увеличить на 4 все элементы больше t , во 2-ом увеличить на k все элементы больше 10k k, t - с клавиатуры .

231

347

Посмотреть ответы 3

Ответы на вопрос:

Rombik075

Информатика

4,5(49 оценок)

Uses crt; const n=10; var a,b: array[1..n] of integer; i,k,t: integer; begin clrscr; randomize; for i: =1 to n do begin a[i]: =random(50); write(a[i],' ') end; writeln; for i: =1 to n do begin b[i]: =random(50); write(b[i],' ') end; writeln; write('k t='); read(k,t); for i: =1 to n do begin if a[i]> t then a[i]: =a[i]+4; write(a[i],' ') end; writeln; for i: =1 to n do begin if b[i]> 10*k then b[i]: =b[i]+k; write(b[i],' ') end; readkey end. тестовое решение: 1 6 23 12 47 1 44 24 6 18 31 30 30 29 0 3 43 32 46 21 k t=2 20 1 6 27 12 51 1 48 28 6 18 33 32 32 31 0 3 45 34 48 23

khleskina02

Информатика

4,5(67 оценок)

Var mas1, mas2: array[0..9] of integer; t, k, i, j: integer; begin readln(t); readln(k); for j : = 0 to 1 do begin if (j = 1) then writeln(); for i : = 0 to 9 do begin if(j = 0) then begin mas1[i] : = random(100); write(mas1[i], ' '); if mas1[i] > t then mas1[i] : = mas1[i] + 4; end else begin mas2[i] : = random(100); write(mas2[i], ' '); if mas2[i] > 10 * k then mas2[i] : = mas2[i] + k; end; end; for i : = 0 to 9 do if (j = 0) then write(mas1[i]) else write(mas2[i]); writeln(); end; readln(); end.))