Определить количество элементов значения,которых <15

@Катышев · Регистрация: 02.05.2014

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

1)Определить количество элементов значения,которых <15 a[i] принадлежит [-100;100]
2)Определить сумму элементов,значения которых принадлежит интервалу [c;d]
3)Все элементы,значения которых >20 заменить числом 19
Это всё одна задача.Ещё бы по возможности был бы рад БСА. Выручите!!!!

@Svager · 02.05.2014, 16:15

Pascal

uses crt;
const nmax=20;
var a:array[1..nmax] of integer;
    i,n,k,c,d,s:integer;
begin
 clrscr;
  repeat
   write('n=');
    readln(n);
  until n in [1..nmax];
  writeln('Ìàññèâ À :');
   for i:=1 to n do
    begin
     a[i]:=-100+random(200);
      write(a[i]:4);
     if a[i]<15 then
      inc(k);
    end;
  writeln;
   writeln('Kîëè÷åñòâî ýëåìåíòîâ çíà÷åíèÿ,êîòîðûõ <15 = ',k);
   write('c=');
    readln(c);
   write('d=');
    readln(d);
   for i:=1 to n do
    if (a[i]>=c) and (a[i]<=d) then
     s:=s+a[i];
   writeln('Cóììa ýëåìåíòîâ,çíà÷åíèÿ êîòîðûõ ïðèíàäëåæèò èíòåðâàëó [',c,',',d,'] = ',s);
   writeln('Íîâûé ìàññèâ :');
    for i:=1 to n do
     begin
      begin
       if a[i]>20 then
        a[i]:=19;
      end;
       write(a[i]:4);
     end;
 readkey;
end.

@Катышев · 02.05.2014, 16:25 **[ТС]**

Огромное спасибо :ВВ а можно блок схему ещё? пожаааааалуйста

Добавлено через 6 минут
Svager, напиши ещё блок схему,пожалуйста

@Svager · 02.05.2014, 16:35

Катышев, та ну, сами давайте ...

@Катышев · 02.05.2014, 19:07 **[ТС]**

Svager, Я просто сыну делаю.Он балбес у меня,а сам я с информатикой не в ладах.Помогли бы вы.Я был бы очень вам признателен.

@ildwine · 02.05.2014, 20:30

...

@Svager · 02.05.2014, 20:37

Катышев, аа ну понятно.ну у меня нету проги , вот ildwine сделал Вам

@Катышев 0 / 0 / 0 Регистрация: 02.05.2014 Сообщений: 3
		1
	Определить количество элементов значения,которых <15 02.05.2014, 15:42. Показов 588. Ответов 6 Метки нет (Все метки) 1)Определить количество элементов значения,которых <15 a[i] принадлежит [-100;100] 2)Определить сумму элементов,значения которых принадлежит интервалу [c;d] 3)Все элементы,значения которых >20 заменить числом 19 Это всё одна задача.Ещё бы по возможности был бы рад БСА. Выручите!!!! 0

@Катышев 0 / 0 / 0 Регистрация: 02.05.2014 Сообщений: 3
	02.05.2014, 16:25 [ТС]	3
	Огромное спасибо :ВВ а можно блок схему ещё? пожаааааалуйста Добавлено через 6 минут Svager, напиши ещё блок схему,пожалуйста 0

@Svager 399 / 378 / 408 Регистрация: 14.09.2013 Сообщений: 1,204
	02.05.2014, 16:35	4
	Катышев, та ну, сами давайте ... 0

@Катышев 0 / 0 / 0 Регистрация: 02.05.2014 Сообщений: 3
	02.05.2014, 19:07 [ТС]	5
	Svager, Я просто сыну делаю.Он балбес у меня,а сам я с информатикой не в ладах.Помогли бы вы.Я был бы очень вам признателен. 0

@ildwine Супер-модератор 6192 / 2938 / 1300 Регистрация: 04.03.2013 Сообщений: 5,780 Записей в блоге: 1
	02.05.2014, 20:30	6
	... Миниатюры 1

@Svager 399 / 378 / 408 Регистрация: 14.09.2013 Сообщений: 1,204
	02.05.2014, 20:37	7
	Катышев, аа ну понятно.ну у меня нету проги , вот ildwine сделал Вам 0

Опции темы