|
Помогите решить задания про массивы
|
|
| valentindolgiy | Дата: Вторник, 15.12.2015, 00:48 | Сообщение # 1 |
|
НовичЁк
Группа: Пользователи
Сообщений: 3
Статус: Оффлайн
| - задана матрица n(5,8). сформировать из нее одномерный массив элементов матрицы n, кратных трем.
- построить алгоритм нахождения произведения индексов отрицательных элементов массива
- дан массив а(10). возвести каждый элемент массива в куб.
- в массиве из 5 элементов найти произведение всех его алгоритмы элементов заменить отрицательные на ноль а положительные и увеличить в 2 раза.
Сообщение отредактировал valentindolgiy - Вторник, 15.12.2015, 00:48 |
| |
| |
| Алексей | Дата: Вторник, 15.12.2015, 15:54 | Сообщение # 2 |
 Продвигающийся
Группа: Администраторы
Сообщений: 324
Статус: Оффлайн
| valentindolgiy,
Цитата valentindolgiy (  ) задана матрица n(5,8). сформировать из нее одномерный массив элементов матрицы n, кратных трем.
Код program untitled;
uses crt;
var a[1..5,1..8] of integer;
var b[1..40] of integer;
var copy: integer;
BEGIN
copy := 1;
writeln('Введит массив');
for i:=1 to 5 do begin
for j:=1 to 8 do begin
write('Введите элемент', i, ' ', j, ' ');
readln(a[i,j]);
if ( (a[i,j] mod 3) = 0 ) then begin
b [copy]:= a[i,j];
copy := copy + 1;
end;
end;
end;
END. |
| |
| |
| Алексей | Дата: Вторник, 15.12.2015, 15:59 | Сообщение # 3 |
|
Продвигающийся
Группа: Администраторы
Сообщений: 324
Статус: Оффлайн
| valentindolgiy, Цитата valentindolgiy ( ) построить алгоритм нахождения произведения индексов отрицательных элементов массива Код program untitled;
uses crt;
CONST n=10;
var a[1..n] of integer;
var i: integer;
BEGIN
writeln('Введит массив');
for i:=1 to n do begin
write('Введите элемент', i, ' - ');
readln(a[i]);
end;
for i:=1 to n do begin
if (a[i,j] < 0) then writeln('Найден отрицательный элемент с индексом - ', );
end;
END. |
| |
| |
| Алексей | Дата: Вторник, 15.12.2015, 16:03 | Сообщение # 4 |
|
Продвигающийся
Группа: Администраторы
Сообщений: 324
Статус: Оффлайн
| Цитата valentindolgiy ( ) в массиве из 5 элементов найти произведение всех его алгоритмы элементов заменить отрицательные на ноль а положительные и увеличить в 2 раза. Код program untitled;
uses crt;
CONST n=5;
var a[1..n] of integer;
var i, kol: integer;
BEGIN
writeln('Введит массив');
for i:=1 to n do begin
write('Введите элемент', i, ' - ');
readln(a[i]);
end;
kol : = 0;
writeln('Печатаем новый массив');
for i:=1 to n do begin
kol := kol + a[i];
if (a [i]< 0) then a [i]:= 0;
if (a [i]> 0) then a [i]:= a [i]+ a[i];
writeln(a[i]);
end;
writeln('Сумма элементов массива = ', kol);
END. |
| |
| |
| valentindolgiy | Дата: Среда, 16.12.2015, 01:46 | Сообщение # 5 |
|
НовичЁк
Группа: Пользователи
Сообщений: 3
Статус: Оффлайн
| Алексей, спасибо за помощь Добавлено (16.12.2015, 01:46)
---------------------------------------------
Алексей, можете пожалуйста еще вот эту решить?
- дан одномерный числовой массив, состоящий из 15 элементов. заполнить массив генератором случайных чисел. найти в нём минимальный элемент, удалить его и вывести новый массив на экран, предварительно отсортированный по возрастанию
|
| |
| |
| Marishka_ | Дата: Среда, 23.12.2015, 23:00 | Сообщение # 6 |
|
НовичЁк
Группа: Проверенные
Сообщений: 5
Статус: Оффлайн
| Цитата valentindolgiy ( ) дан массив а(10). возвести каждый элемент массива в куб.
делали чтото наподобе на занятиях
|
| |
| |
| Алексей | Дата: Воскресенье, 03.01.2016, 21:24 | Сообщение # 7 |
|
Продвигающийся
Группа: Администраторы
Сообщений: 324
Статус: Оффлайн
| Цитата valentindolgiy ( ) дан одномерный числовой массив, состоящий из 15 элементов. заполнить массив генератором случайных чисел. найти в нём минимальный элемент, удалить его и вывести новый массив на экран, предварительно отсортированный по возрастанию
program untitled;
uses crt;
var a[1..15] of integer;
var i,min,minindex,tmp,n: integer;
BEGIN
randomize;
n:=15;
writeln('Заполните массив');
for i:=1 to n do begin { цикл обработки массива }
a[i]:=random(1000);
if (i=1) then begin min:=a[i]; minindex:=i end { кладем в минимум первый элемент массива }
if (a[i] end { конец цикла }
if (minindex<>n) then begin { если последний элемент массива минимальный то сдвигать ничего не нужно }
for i:=(minindex+1) to n do begin { в этом массиве мы удалим минимальный элемент и выполним сдвиг массива }
a[i-1]:=a[i];
end
end
n:=n-1;
writeln('Результирующий массив');
for i:=1 to n do begin
write('a[',i,']=',a[i],'; '); {Выводим на экран элементы массива}
end
END.
|
| |
| |
