[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Форум » Компьютеры » Программирование » Pascal » Задания на массивы (Pascal)
Задания на массивы
Marishka_Дата: Среда, 23.12.2015, 22:53 | Сообщение # 1
НовичЁк
Группа: Проверенные
Сообщений: 5
Награды: 0
Репутация: 0
Статус: Оффлайн
Помогите с этими заданиями пожалуйста:
  • составьте программу нахождения суммы положительных значений массива, состоящего из 15 элементов.
  • заполнить одномерный массив наименьшими значениями элементов строк, вывести полученную информацию на экран и номера строк, в которых значения наименьшие.
  • дан массив. найти сколько пар в нем одинаковых соседних элементов
  • дан двумерный массив целых чисел найти сумму элементов в каждой строке
 
АлексейДата: Среда, 30.12.2015, 00:54 | Сообщение # 2
Продвигающийся
Группа: Администраторы
Сообщений: 324
Награды: 4
Репутация: 1
Статус: Оффлайн
Первая программа:

program untitled;
uses crt;
var a[1..15] of integer;
var sum,i: integer;
{ a - наш массив, sum - переменная для хранения суммы положительных элементов }
BEGIN
sum:=0; { обноляем значение суммы }
writeln('Заполните массив');
for i:=1 to 15 do begin { цикл обработки массива }
write('Введите ',i,' элемент массива:');
readln(a[i]); { вводим элемент массива }
if (a[i]>0) then sum:=sum+a[i]; { если элемент массива положительный то перерасчитываем сумму }
end { конец цикла }
writeln('Сумма положительных элементов массива = ',sum); { выводим сумма на экран }
END.
Прикрепления: pascal.pas (0.6 Kb)
 
АлексейДата: Среда, 30.12.2015, 01:05 | Сообщение # 3
Продвигающийся
Группа: Администраторы
Сообщений: 324
Награды: 4
Репутация: 1
Статус: Оффлайн
Цитата Marishka_ ()
заполнить одномерный массив наименьшими значениями элементов строк, вывести полученную информацию на экран и номера строк, в которых значения наименьшие.


program untitled;
uses crt;
var a[1..15,1..15] of integer;
var b[1..15] of integer;
var i,j: integer;
BEGIN
writeln('Заполните массив');
for i:=1 to 15 do begin { цикл обработки массива }
for j:=1 to 15 do begin { внутренний цикл }
write('Введите ',j,' элемент массива ',i,' строки:');
readln(a[i,j]); { вводим элемент массива }
if (j=1) then b[i]:=a[i][j];
if (a[i,j] end { конец внутреннего цикла }
end { конец цикла }
writeln('Результирующий массив');
for i:=1 to 15 do begin
for j:=1 to 15 do begin
write(a[i,j],' ');
end
writeln(''); { перенос перед новой строчкой массива }
end
END.
Прикрепления: 5517256.pas (1.0 Kb)
 
АлексейДата: Среда, 30.12.2015, 01:07 | Сообщение # 4
Продвигающийся
Группа: Администраторы
Сообщений: 324
Награды: 4
Репутация: 1
Статус: Оффлайн
Цитата Marishka_ ()
дан двумерный массив целых чисел найти сумму элементов в каждой строке

Аналог первой и второй задачи из вашего списка. Сможете справиться сами, учитывая, что у вас уже есть код первой и второй задачи от меня. Результат можете прислать, я проверю.
 
Форум » Компьютеры » Программирование » Pascal » Задания на массивы (Pascal)
  • Страница 1 из 1
  • 1
Поиск: