Найти сумму элементов массива, имеющих нечетное значение

@AlanNeverage · Регистрация: 29.04.2010

Студворк — интернет-сервис помощи студентам

Доброго времени суток, ребята подскажите как эти задачки решить?)

Дан массив целых чисел, состоящий из 20 элементов. Заполнить его с клавиатуры. Найти:
• сумму элементов, имеющих нечетное значение;
• вывести индексы тех элементов, значения которых больше заданного числа А;
• определить, есть ли в данном массиве положительные элементы, кратные k (k вводить с клавиатуры).

@Antonio:))) · 29.04.2010, 22:11

Delphi

procedure TForm1.Button1Click(Sender: TObject);
 const n=20;
 var b:array[1..n] of integer;
     i,s,a,k:integer;
 begin
  s:=0;
  a:=StrToInt(Edit1.Text);
  label2.Caption:='';
  k:=StrToInt(Edit2.Text);
 for i:=1 to n do
   b[i]:=StrToInt(StringGrid1.Cells[i-1,0]); //заполнение массива
 
 for i:=1 to n do
   if b[i] mod 2<>0 then
    begin
    s:=s+b[i];       // подсчет суммы нечетных эл-в
    Label1.Caption:='сумма нечетных эл-в'+IntToStr(s);
    end;
 
 for i:=1 to n do
   if b[i]>a then  Label2.Caption:=Label2.Caption+IntToStr(i)+' '; //выводим номера
 
 for i:=1 to n do
   if (b[i]>0) and (b[i] mod 2=0) then Label3.Caption:='Элементы имеются'
   else Label3.Caption:='элементы отсутствуют';
 end;
 
end.

@AlanNeverage · 02.05.2010, 16:04 **[ТС]**

Большое спасибо))

@Grusha · 02.05.2010, 19:02

А будьте любезны еще один вопрос : как вывести все элементы этого массива на метку?

@Antonio:))) · 02.05.2010, 19:23

Grusha,
На метку, в смысле в StringGrid?

@Grusha · 02.05.2010, 19:27

в смысле на Label1.Caption или в текстовую строку, или куда вам удобнее - например в любой список.
Что бы зрительно отследить все элементы массива в момент времени.

И еще: НЕ заданные элементы - равны по умолчанию нулю? или там пусто?

@Roma75 · 30.11.2010, 12:27

Delphi

procedure TForm1.Button1Click(Sender: TObject);
 const n=20;
 var b:array[1..n] of integer;
     i,s,a,k:integer;
 begin
  s:=0;
  a:=StrToInt(Edit1.Text);
  label2.Caption:='';
  k:=StrToInt(Edit2.Text);
 for i:=1 to n do
   b[i]:=StrToInt(StringGrid1.Cells[i-1,0]);
 
 for i:=1 to n do
   if b[i] mod 2<>0 then
    begin
    s:=s+b[i];       // подсчет суммы нечетных эл-в
    Label1.Caption:='сумма нечетных эл-в'+IntToStr(s);
    end;
 
 for i:=1 to n do
   if b[i]>a then  Label2.Caption:=Label2.Caption+IntToStr(i)+' ';
 
 for i:=1 to n do
   if (b[i]>0) and (b[i] mod 2=0) then Label3.Caption:='Элементы имеются'
   else Label3.Caption:='элементы отсутствуют';
 end;
 
end.

Добавлено через 26 секунд
и вот этот вариант тоже правильный или че?? я запутался=(

Добавлено через 1 минуту
ой это не вам

Найти сумму элементов массива, имеющих нечетное значение

Решение

Решение

@AlanNeverage 3 / 3 / 0 Регистрация: 29.04.2010 Сообщений: 29
		1
	Найти сумму элементов массива, имеющих нечетное значение 29.04.2010, 18:58. Показов 7648. Ответов 6 Метки нет (Все метки) Доброго времени суток, ребята подскажите как эти задачки решить?) Дан массив целых чисел, состоящий из 20 элементов. Заполнить его с клавиатуры. Найти: • сумму элементов, имеющих нечетное значение; • вывести индексы тех элементов, значения которых больше заданного числа А; • определить, есть ли в данном массиве положительные элементы, кратные k (k вводить с клавиатуры). 1

@AlanNeverage 3 / 3 / 0 Регистрация: 29.04.2010 Сообщений: 29
	02.05.2010, 16:04 [ТС]	3
	Большое спасибо)) 0

@Grusha 24 / 24 / 2 Регистрация: 17.06.2008 Сообщений: 613
	02.05.2010, 19:02	4
	А будьте любезны еще один вопрос : как вывести все элементы этого массива на метку? 0

@Antonio:))) 18 / 18 / 7 Регистрация: 21.01.2010 Сообщений: 58
	02.05.2010, 19:23	5
	Grusha, На метку, в смысле в StringGrid? 0

@Grusha 24 / 24 / 2 Регистрация: 17.06.2008 Сообщений: 613
	02.05.2010, 19:27	6
	в смысле на Label1.Caption или в текстовую строку, или куда вам удобнее - например в любой список. Что бы зрительно отследить все элементы массива в момент времени. И еще: НЕ заданные элементы - равны по умолчанию нулю? или там пусто? 0

	30.11.2010, 12:27

Опции темы