15.03.2011, 20:42 | #1 (permalink) |
Новичок
Регистрация: 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. очень срочно надо, заранее спасибо |
15.03.2011, 20:42 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Схожие топики помогут пролить свет на решение вопроса Помогите разобраться Помогите с двумерными массивами. C++ Нужно разобраться с двумерными массивами Помогите разобраться с ОС |
15.03.2011, 20:50 | #2 (permalink) |
Member
Регистрация: 27.02.2010
Сообщений: 659
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 1312
|
интересно а на каком языке? на Аде написать или может Коболе?? Хотя нет дайте угадаю это же надо написать сначала свой язык а потом эти программки
|
16.03.2011, 06:41 | #4 (permalink) |
Студент БГПУ
Регистрация: 06.02.2010
Сообщений: 420
Записей в дневнике: 3
Сказал(а) спасибо: 1
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 470
|
Код:
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 Причина: :)) |
16.03.2011, 06:48 | #5 (permalink) | |
Студент БГПУ
Регистрация: 06.02.2010
Сообщений: 420
Записей в дневнике: 3
Сказал(а) спасибо: 1
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 470
|
Цитата:
Код:
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 Причина: :)) |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
16.03.2011, 06:56 | #6 (permalink) | |
Студент БГПУ
Регистрация: 06.02.2010
Сообщений: 420
Записей в дневнике: 3
Сказал(а) спасибо: 1
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 470
|
Цитата:
Код:
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. |
|
16.03.2011, 07:04 | #7 (permalink) | |
Студент БГПУ
Регистрация: 06.02.2010
Сообщений: 420
Записей в дневнике: 3
Сказал(а) спасибо: 1
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 470
|
Цитата:
Код:
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. |
|
16.03.2011, 09:39 | #8 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Шрек, пожалуйста, повнимательнее к условиям ветвления! У Вас (топик #4)
эта строка обеспечивает поиск минимума из неположительных (отрицательных и нулевых) элементов, а надо из положительных. Поэтому условие Код:
x[i]<=0 Код:
x[i]>0 |
16.03.2011, 16:08 | #9 (permalink) | |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,797
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
Цитата:
Код:
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 Причина: точка |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|