Дан массив вещественных чисел. все элементы с нечетными номерами заменить на их квадратный корень

Школьные Знания.com

Какой у тебя вопрос?

10 - 11 классыИнформатика 8+4 б

Дан массив вещественных чисел:

Все элементы с нечетными номерами заменить на их квадратный корень

Отметить нарушение РРПП 01.04.2013

ответы и объяснения

Проверенный ответ

Tlalok

Tlalok Почетный грамотей

var

a:array[1..100] of real;

i, n:integer;

begin

write('Введите количество элементов '); readln(n);

for i := 1 to n do

begin

write('a[', i ,'] = ');

readln(a[i]);

end;

writeln;

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

for i := 1 to n do

begin

write(a[i], ' ');

if i mod 2 = 1 then

a[i] := sqrt(a[i]);

end;

writeln;

writeln;

writeln('Преобразованный массив:');

for i := 1 to n do

write(a[i]:0:2, ' ');

writeln;

end.

4

Объяснение:

Замечу, что команды цикла (кроме k++) попросту меняют местами значения элементов, рассматриваемых на текущей итерации.

k = 0

A = [3, -5, 1, -4, 11, 0, -14, 10, -8, 4]

i = 0

A[0]*A[1] = 3*(-5) = -15

-15 < 0 — true

k = 1, t = 3

A[0] = -5, A[1] = 3

A = [-5, 3, 1, -4, 11, 0, -14, 10, -8, 4]

i = 1

A[1]*A[2] = 3*1 = 2

3 < 0 — false

A = [-5, 3, 1, -4, 11, 0, -14, 10, -8, 4]

i = 2

A[2]*A[3] = 1*(-4) = -4

-4 < 0 — true

k = 2, t = 1

A[2] = -4, A[3] = 1

A = [-5, 3, -4, 1, 11, 0, -14, 10, -8, 4]

i = 3

A[3]*A[4] = 1*11 = 11

11 < 0 — false

A = [-5, 3, -4, 1, 11, 0, -14, 10, -8, 4]

i = 4

A[4]*A[5] = 11*0 = 0

0 < 0 — false

A = [-5, 3, -4, 1, 11, 0, -14, 10, -8, 4]

i = 5

A[5]*A[6] = 0*(-14) = 0

0 < 0 — false

A = [-5, 3, -4, 1, 11, 0, -14, 10, -8, 4]

i = 6

A[6]*A[7] = -14*10 = -140

-140 < 0 — true

k = 3, t = -14

A[2] = 10, A[3] = -14

A = [-5, 3, -4, 1, 11, 0, 10, -14, -8, 4]

i = 7

A[7]*A[8] = -14*(-8) = 112

112 < 0 — false

A = [-5, 3, -4, 1, 11, 0, 10, -14, -8, 4]

i = 8

A[8]*A[9] = -8*4 = -32

-32 < 0 — true

k = 4, t = -8

A[2] = 4, A[3] = -8

Компьютер стал неотъемлемой частью жизни практически каждого человека.

Компьютер стал неотъемлемой частью жизни практически каждого человека.Как известно, работает он исключительно под управлением программ (программного обеспечения). Это делает его по-настоящему универсальным устройством, которое может выполнять роль музыкального центра, телевизора, пишущей машинки и т. д. Программы пишут программисты и у некоторых из них появляется желание придумать что-то эдакое. Иногда это -невинные шалости, в других случаях они имеют явную зловещую направленность. Появились программы, которые, не спрашивая ничьего разрешения, запускались, копировались в разные места диска и "заражали" другие программы (заменяли часть полезного кода рабочей программы своим или изменяли его). С этого момента и нужно начинать разговор о "компьютерных вирусах".

Компьютер стал неотъемлемой частью жизни практически каждого человека.Как известно, работает он исключительно под управлением программ (программного обеспечения). Это делает его по-настоящему универсальным устройством, которое может выполнять роль музыкального центра, телевизора, пишущей машинки и т. д. Программы пишут программисты и у некоторых из них появляется желание придумать что-то эдакое. Иногда это -невинные шалости, в других случаях они имеют явную зловещую направленность. Появились программы, которые, не спрашивая ничьего разрешения, запускались, копировались в разные места диска и "заражали" другие программы (заменяли часть полезного кода рабочей программы своим или изменяли его). С этого момента и нужно начинать разговор о "компьютерных вирусах".

Компьютер стал неотъемлемой частью жизни практически каждого человека.Как известно, работает он исключительно под управлением программ (программного обеспечения). Это делает его по-настоящему универсальным устройством, которое может выполнять роль музыкального центра, телевизора, пишущей машинки и т. д. Программы пишут программисты и у некоторых из них появляется желание придумать что-то эдакое. Иногда это -невинные шалости, в других случаях они имеют явную зловещую направленность. Появились программы, которые, не спрашивая ничьего разрешения, запускались, копировались в разные места диска и "заражали" другие программы (заменяли часть полезного кода рабочей программы своим или изменяли его). С этого момента и нужно начинать разговор о "компьютерных вирусах". Первая массовая эпидемия компьютерного вируса произошла в 1986 году, когда вирус Brain «заражал» дискеты для первых массовых персональных компьютеров; шокирующее действие произвёл вирус Penetratоr, сметающий на своём пути файлы практически всех приложений.

Компьютер стал неотъемлемой частью жизни практически каждого человека.Как известно, работает он исключительно под управлением программ (программного обеспечения). Это делает его по-настоящему универсальным устройством, которое может выполнять роль музыкального центра, телевизора, пишущей машинки и т. д. Программы пишут программисты и у некоторых из них появляется желание придумать что-то эдакое. Иногда это -невинные шалости, в других случаях они имеют явную зловещую направленность. Появились программы, которые, не спрашивая ничьего разрешения, запускались, копировались в разные места диска и "заражали" другие программы (заменяли часть полезного кода рабочей программы своим или изменяли его). С этого момента и нужно начинать разговор о "компьютерных вирусах". Первая массовая эпидемия компьютерного вируса произошла в 1986 году, когда вирус Brain «заражал» дискеты для первых массовых персональных компьютеров; шокирующее действие произвёл вирус Penetratоr, сметающий на своём пути файлы практически всех приложений.Количество вирусов увеличивается с каждым днем. Все это подтверждается статистикой и реальной жизнью. Анализ позволяет утверждать, что в наше время, когда число компьютеров на душу населения в мире постоянно растет, возрастает и угроза нашествия компьютерных вирусов. Не остается в стороне от этого явления и Россия, которая исторически была в лидерах по «производству» компьютерных вирусов и сейчас не отстает от других стран в этом аспекте.

Поэтому проблема данного исследования состоит раскрытии принципа работы компьютерных вирусов и антивирусных программ.