Вопрос по информатике:
Сформулируйте массив,содержащий 15 элементов,с помощью датчика случайн
ых чисел. получите новый массив,каждый элемент которого равен обратному
соответствующему элементу исходного массива. посчитайте кол- во не изменившихся элементов и найдите в новом массиве максимальный о абсолютной величине отрицательный элемент. выведите на экран исходные и полученные результаты
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 16.07.2015 01:12
- Информатика
- remove_red_eye 8094
- thumb_up 10
Ответы и объяснения 1
Const
N = 15;
var
mas:array[1..999] of integer;
counter, c, max, i:integer;
begin
max:=-maxint;
counter:=0;
randomize;
write('Старый массив: ');
for i:=1 to N do
begin
mas[i]:=random(101)-50;//случайные числа от -50 до 50
write(mas[i],' ');
end;
writeln;
for i:=1 to N div 2 do
begin
if mas[i] = mas[N-i+1] then
counter:=counter+1;
if (mas[i]max) then
max:=mas[i];
c:=mas[i];
mas[i]:=mas[N-i+1];
mas[N-i+1]:=c;
end;
if N mod 2 = 1 then
counter:=counter+1;
write('Новый массив: ');
for i:=1 to N do
write(mas[i],' ');
writeln;
writeln('Кол-во не изменившихся элементов: ', counter);
writeln('Максимальный отрицательный элемент: ', max);
end.
- 17.07.2015 18:28
- thumb_up 25
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.