[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Форум » Компьютеры » Программирование » Pascal » Помогите решить задания про массивы (Pascal)
Помогите решить задания про массивы
valentindolgiyДата: Вторник, 15.12.2015, 00:48 | Сообщение # 1
НовичЁк
Группа: Пользователи
Сообщений: 3
Награды: 0
Репутация: 0
Статус: Оффлайн
  • задана матрица n(5,8). сформировать из нее одномерный массив элементов матрицы n, кратных трем.
  • построить алгоритм нахождения произведения индексов отрицательных элементов массива
  • дан массив а(10). возвести каждый элемент массива в куб.
  • в массиве из 5 элементов найти произведение всех его алгоритмы элементов заменить отрицательные на ноль а положительные и увеличить в 2 раза.


Сообщение отредактировал valentindolgiy - Вторник, 15.12.2015, 00:48
 
АлексейДата: Вторник, 15.12.2015, 15:54 | Сообщение # 2
Продвигающийся
Группа: Администраторы
Сообщений: 324
Награды: 4
Репутация: 1
Статус: Оффлайн
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
Награды: 4
Репутация: 1
Статус: Оффлайн
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
Награды: 4
Репутация: 1
Статус: Оффлайн
Цитата 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
Награды: 0
Репутация: 0
Статус: Оффлайн
Алексей, спасибо за помощь

Добавлено (16.12.2015, 01:46)
---------------------------------------------
Алексей, можете пожалуйста еще вот эту решить?

  • дан одномерный числовой массив, состоящий из 15 элементов. заполнить массив генератором случайных чисел. найти в нём минимальный элемент, удалить его и вывести новый массив на экран, предварительно отсортированный по возрастанию
 
Marishka_Дата: Среда, 23.12.2015, 23:00 | Сообщение # 6
НовичЁк
Группа: Проверенные
Сообщений: 5
Награды: 0
Репутация: 0
Статус: Оффлайн
Цитата valentindolgiy ()
дан массив а(10). возвести каждый элемент массива в куб.

делали чтото наподобе на занятиях
 
АлексейДата: Воскресенье, 03.01.2016, 21:24 | Сообщение # 7
Продвигающийся
Группа: Администраторы
Сообщений: 324
Награды: 4
Репутация: 1
Статус: Оффлайн
Цитата 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.
 
Форум » Компьютеры » Программирование » Pascal » Помогите решить задания про массивы (Pascal)
  • Страница 1 из 1
  • 1
Поиск: