Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 15.03.2011, 20:42   #1 (permalink)
ter12
Новичок
 
Регистрация: 15.03.2011
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Помогите разобраться с массивами

. Напишите программу, находящую в двухмерном массиве номера строк с наибольшей суммой элементов.
2. Найти наименьший из положительных элементов массива Х[1..10].
3. Из массива В[1..8] уберите все отрицательные элементы, заменив их на значения предыдущих элементов.
4. Напишите программу определения количества элементов, удовлетворяющих условию 0<А[i],i в целочисленном массиве А[1..10].
5. Для линейного целого массива A[1..N] найти сумму всех: а) четных элементов; б) нечетных элементов; в) элементов, кратных 3.
очень срочно надо, заранее спасибо
ter12 вне форума   Ответить с цитированием

Старый 15.03.2011, 20:42
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Схожие топики помогут пролить свет на решение вопроса

Помогите разобраться
Помогите с двумерными массивами. C++
Нужно разобраться с двумерными массивами
Помогите разобраться с ОС

Старый 15.03.2011, 20:50   #2 (permalink)
kreol
Member
 
Аватар для kreol
 
Регистрация: 27.02.2010
Сообщений: 659
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 1312
По умолчанию

интересно а на каком языке? на Аде написать или может Коболе?? Хотя нет дайте угадаю это же надо написать сначала свой язык а потом эти программки
kreol вне форума   Ответить с цитированием
Старый 15.03.2011, 21:00   #3 (permalink)
ter12
Новичок
 
Регистрация: 15.03.2011
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

паскаль
ter12 вне форума   Ответить с цитированием
Старый 16.03.2011, 06:41   #4 (permalink)
shrek=)
Студент БГПУ
 
Аватар для shrek=)
 
Регистрация: 06.02.2010
Сообщений: 420
Записей в дневнике: 3
Сказал(а) спасибо: 1
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 470
По умолчанию

Цитата:
Сообщение от ter12 Посмотреть сообщение
2. Найти наименьший из положительных элементов массива Х[1..10].
Код:
var
x:array [1..10] of integer;
i,min:integer;
begin
randomize;
min:=10000;
for i:=1 to 10 do begin 
x[i]:=random(31)-30;
if (x[i]<=0) and (x[i]<min) then min:=x[i];
end;
writeln ('Минимальный из положительных элементов равен  ',min);
readln 
end.

Последний раз редактировалось shrek=); 16.03.2011 в 06:43 Причина: :))
shrek=) вне форума   Ответить с цитированием
Старый 16.03.2011, 06:48   #5 (permalink)
shrek=)
Студент БГПУ
 
Аватар для shrek=)
 
Регистрация: 06.02.2010
Сообщений: 420
Записей в дневнике: 3
Сказал(а) спасибо: 1
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 470
По умолчанию

Цитата:
Сообщение от ter12 Посмотреть сообщение
3. Из массива В[1..8] уберите все отрицательные элементы, заменив их на значения предыдущих элементов.
Так как для первого элемента предыдущего нет, то генерируем ему положительное значение.
Код:
var 
b:array [1..8] of integer;
i:integer;
begin
randomize;
b[1]:=random(30)+1;
for i:=2 to 8 do begin
b[i]:=random(31)-30;
if b[i]<0 then b[i]:=b[i-1];
end;
for i:=1 to 8 do 
write (b[i]:2);
readln 
end.

Последний раз редактировалось shrek=); 16.03.2011 в 06:52 Причина: :))
shrek=) вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Старый 16.03.2011, 06:56   #6 (permalink)
shrek=)
Студент БГПУ
 
Аватар для shrek=)
 
Регистрация: 06.02.2010
Сообщений: 420
Записей в дневнике: 3
Сказал(а) спасибо: 1
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 470
По умолчанию

Цитата:
Сообщение от ter12 Посмотреть сообщение
4. Напишите программу определения количества элементов, удовлетворяющих условию 0<А[i],i в целочисленном массиве А[1..10].
Код:
var
a:array [1..10] of integer;
i,c:integer;
begin 
c:=0;
randomize;
for i:=1 to 10 do begin 
a[i]:=random(10)+1;
if (a[i]>0) and (a[i]<i) then inc(c);
end;
writeln ('Количество элементов, удовлетворяющих условию 0<a[i]<i, равно  ',c);
readln
end.
shrek=) вне форума   Ответить с цитированием
Старый 16.03.2011, 07:04   #7 (permalink)
shrek=)
Студент БГПУ
 
Аватар для shrek=)
 
Регистрация: 06.02.2010
Сообщений: 420
Записей в дневнике: 3
Сказал(а) спасибо: 1
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 470
По умолчанию

Цитата:
Сообщение от ter12 Посмотреть сообщение
5. Для линейного целого массива A[1..N] найти сумму всех: а) четных элементов; б) нечетных элементов; в) элементов, кратных 3.
Код:
const N=20;
var
a:array [1..n] of integer;
i,sum:integer;
procedure variant_a;
begin 
sum:=0;
for i:=1 to N do begin
if i mod 2=0 then sum:=sum+a[i];
end;
writeln ('Сумма чётных элементов равна ',sum);
end;
procedure variant_b;
begin
sum:=0; 
for i:=1 to N do begin
if i mod 2=1 then sum:=sum+a[i];
end;
writeln ('Сумма не чётных элементов равна ',sum);
end;
procedure variant_c;
begin 
sum:=0;
 for i:=1 to N do begin
 if i mod 3=0 then sum:=sum+a[i];
 end;
 writeln ('Сумма элементов с номерами кратными 3 равна ',sum);
 end;
begin
variant_a;
variant_b;
variant_c;
readln
end.
shrek=) вне форума   Ответить с цитированием
Старый 16.03.2011, 09:39   #8 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,343
Сказал(а) спасибо: 288
Поблагодарили 507 раз(а) в 165 сообщениях
Репутация: 91953
По умолчанию

Шрек, пожалуйста, повнимательнее к условиям ветвления! У Вас (топик #4)
Цитата:
Сообщение от shrek=) Посмотреть сообщение
Код:
if (x[i]<=0) and (x[i]<min) then min:=x[i];
эта строка обеспечивает поиск минимума из неположительных (отрицательных и нулевых) элементов, а надо из положительных. Поэтому условие
Код:
x[i]<=0
следует заменить на
Код:
x[i]>0
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Старый 16.03.2011, 16:08   #9 (permalink)
AlexZir
support
 
Аватар для AlexZir
 
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 14,454
Записей в дневнике: 56
Сказал(а) спасибо: 123
Поблагодарили 149 раз(а) в 61 сообщениях
Репутация: 59583
По умолчанию

Цитата:
Сообщение от ter12 Посмотреть сообщение
Напишите программу, находящую в двухмерном массиве номера строк с наибольшей суммой элементов.
Код:
const n=10;
var mas: array[n,2*n] of real;
sum: array[n] of real;
max:real;
i,j:integer;
begin
randomize;
{заполнение массива случайными значениями и вывод его на экран}
for i:=1 to n do begin
for j:=1 to 2*n do begin
mas[i,j]:=random*50-50;
write(mas[i,j]:4:6]; end; writeln; end;
{подсчет суммы построчно и заполнение массива сумм}
for i:=1 to n do begin
sum[i]:=0;
for j:=1 to 2*n do
sum[i]:=sum[i]+a[i,j];
end;
{анализ массива сумм и вывод номеров строк с наибольшей суммой}
max:=sum[1];
for i:=2 to n do
if sum[i]>max then max:=sum[i]; 
for i:=1 to n do
if sum[i]=max then writeln('Номер строки с наибольшей суммой элементов ',i);
readln
end.
__________________
Убить всех человеков!

Последний раз редактировалось AlexZir; 17.03.2011 в 08:51 Причина: точка
AlexZir на форуме   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 13:05.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.