Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
маруська37
0 / 0 / 0
Регистрация: 03.12.2011
Сообщений: 15
1

Замена знака каждого пятого элемента массива B(100) на противоположный.

08.01.2012, 17:35. Просмотров 670. Ответов 1
Метки нет (Все метки)

2. . Составить блок-схему и программу для замены знака каждого пятого элемента массива B(100) на противоположный.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.01.2012, 17:35
Ответы с готовыми решениями:

Смена знака минимального элемента каждого столбца матрицы на противоположный
Необходима помощь в решении задачи, никак не могу понять как доделать. В массиве С(4*4) из...

Вставить число 100 после пятого элемента массива
1)Вставить число 100 после пятого элемента массива. 2)На основе разобранной задачи вставьте число...

Вставить число 100 после пятого элемента массива
Приветствую форумчане. Прошу вас помочь с заданием. Дан массив целых чисел (n=15), заполненный...

Вставить число 100 после пятого элемента массива
Привет всем!) помогите ребят плз) Дан массив целых чисел (n=12), заполненный случайным образом...

Из каждого пятого элемента массива сформировать третью строку матрицы
1.Создать файл,состоящий из массива чисел x (20).Написать программу,по которой из каждого пятого...

1
WebMax 2.0
--\.founder./--
563 / 563 / 392
Регистрация: 20.10.2011
Сообщений: 867
08.01.2012, 20:23 2
Лучший ответ Сообщение было отмечено маруська37 как решение

Решение

Pascal
1
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
Program Massiv_Readln;
 
Uses crt;   // подключаем модули
 
Type
mat = array [1..100] of integer ;
 
var
a:mat; // переменная массива
i,n:integer; // переменная I вводится как индекс массива
 
begin // начало основной программы
 
 clrscr;   // очищает текстовое окно
//------------------------------------------------------------------------------ // формируем массив 'A'
 Write('Размер массива (до 100) - ');readln(n);   // вводим размер одномерного массива
 Write('Массив: ');
 For i:=1 to n do
    begin
    a[i]:=random(50)-25;
    Write (a[i],' ');
    if i mod 5 = 0 then
       begin
         if a[i]>0 then a[i]:=-a[i] else a[i]:=abs(a[i]);
       end;
    end;
 
//------------------------------------------------------------------------------ // вывод массива 'A'
Writeln; writeln;
 Write('Новый массив: ');
 For i:=1 to n do
 write(a[i],' ');
 
 readkey; // читает символ из буфера клавиатуры.
 
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.01.2012, 20:23

Замена максимального элемента массива на противоположный по знаку
помогите пожалуйста , нужно заменить максимальный элемент который вводится с клавиатуры на...

Вставить число 100 после пятого элемента массива
Либо руки кривые, либо паскаль абц кривой. const n = 10; dd = 51; type myarray = array of...

Найти пятую степень каждого пятого элемента массива.
Дан массив А(50). Найти пятую степень каждого пятого элемента массива.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru