Что вы можете сказать о массиве, сформированном следующим образом? Перечислите элементы массива в каждом случае а) for i:=1 to 10 do a[i] :=random (101-50);
б) for i:=1 to 20 do a[i] :=i;
в) for i:=1 to 5 do a[i] :=2*i-1;

193

248

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

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

estvolygina

Информатика

4,6(4 оценок)

1) В массив присвоят 10 числе от -50 до 50

2) В массив присвоят 20 чисел по порядку начиная от 1 до 20

3) В массив присвоят в разные ячейки пять результатов уравнения 2*i-1.

covavector1

Информатика

4,6(30 оценок)

Uses crt; var a: array[1..10]of integer; b: array[1..10]of integer; max,i,c,k: integer; beginfor i: =1 to 10 do a[i]: =random(20)-10; for i: =1 to 10 do if abs(a[i])> abs(max) then begin max: =a[i]; c: =i; end; for i: =1 to 10 do if (a[i]=max)and(i< > c) then begin b[i]: =i; k: =k+1; end; writeln('максимальный элемент по модулю=(',max,') номер этого элемента=(',c,')'); write('номера таких же элементов: '); for i: =1 to 10 do if b[i]> 0 thenwrite(b[i],' '); writeln('их кол-во: (',k,')'); writeln; for i: =1 to 10 do write(a[i],' ') end.