1. Составить программу…

Question

1. Составить программу, которая увеличивает каждый элемент настоящей таблице х [1 … 10] на 1. 2. Составить программу, замены положительныхэлементов настоящей таблице х [1 … 10] на 0.

Answer 1

47

anastasiya-sonko

17 марта 2023

//первая программа var x: array[1… 10] of integer; i: integer; begin for i: =1 to 10 do begin write ('x[', i, ']='); readln (x[i]); inc (x[i]); end; writeln; writeln ('Result'); for i: =1 to 10 do write (x[i], '); readln; end. //вторая программа var x: array[1… 10] of integer; i: integer; begin for i: =1 to 10 do begin write ('x[', i, ']='); readln (x[i]); if x[i] > 0 then x[i]: =0; end; writeln; writeln ('Result'); for i: =1 to 10 do write (x[i], '); readln; end. // третья программа var x: array[1… 10] of integer; i: integer; begin for i: =1 to 10 do begin write ('x[', i, ']='); readln (x[i]); if x[i] < 0 then x[i]: =x[i]*x[i]; end; writeln; writeln ('Result'); for i: =1 to 10 do write (x[i], '); readln; end. // четвертая программа var x: array[1… 10] of integer; i: integer; begin for i: =1 to 10 do begin write ('x[', i, ']='); readln (x[i]); if x[i] > 10 then x[i]: =x[i]+2; end; writeln; writeln ('Result'); for i: =1 to 10 do write (x[i], '); readln; end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: