Регистрация
BlackStar14
10.04.2020 02:49
Информатика
Есть ответ 👍

Тест ПО информатика 10 класс

Вот ссылка

118
456
Посмотреть ответы 1

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

pzuzuk
pzuzuk
4,8(93 оценок)

ответ:

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

uses crt;

const nmax=100;

type mas=array[1..nmax] of real;

var n: byte;

procedure vvod(var a: mas; c: char);

var i: byte;

begin

writeln('исходный массив ',c);

for i: =1 to n do

begin

a[i]: =-5+15*random;

write(a[i]: 5: 1)

end;

writeln

end;

procedure poloz(var a: mas; k: real; c: char);

var i: byte;

begin

writeln('измененный массив ',c);

for i: =1 to n do

begin

if a[i]> 0 then a[i]: =a[i]+k;

write(a[i]: 5: 1)

end;

writeln

end;

var a,b: mas;

k: real;

begin

randomize;

repeat

write('размер массивов от 2 до ',nmax,' n=');

readln(n);

until n in [2..nmax];

write('введите число для изменения положительных k=');

readln(k);

vvod(a,'a');

poloz(a,-k,'a');

vvod(b,'b');

poloz(b,k,'b');

end.

Популярно: Информатика