Задание на матрицу

Тема в разделе "Pascal and Delphi", создана пользователем -, 10 июн 2010.

Статус темы:
Закрыта.
  1. Гость

    Я извиняюсь, я новенькая, не знала где задать вопрос, решила здесь!

    у меня задание: Даны натуральное число n, действительные числа x1,…xn. В последова-тельности x1,…xn все члены меньшие двух, заменить нулями. Кроме того, получить сумму членов, принадлежащих отрезку [c, d], а также число та-ких членов.

    я не могу понять какая ошибка:
    Код (Text):
    cоnst n=10;
    var
    a: array [1..n] of real;
    k,c,d,i:integer;
    sum:real;
    begin
    writeln('c=');
    readln©;
    writeln('d=');
    readln(d);
    writeln(' Vvedite elementi massiva');
    for i:=1 to n do begin
    write('element #',i,'=');
    readln(a);
    end;
    for i:=1 to n do begin
    if (a<2) then a:=0;
    end;
    for i:=1 to n do
    begin
    if (a>c) or (a=c) and (a<d)>=d) then begin
    sum:= sum+a;
    inc(k);
    end;
    end;
    writeln('symma na promegytke= ',sum);
    writeln(' kolichestvo 4lenov pirnadlegashih otrezky =',k);
    readln;
    end.
    помогите пожалуйста
     
  2. Dock1100

    Dock1100 :-]

    Регистрация:
    9 ноя 2009
    Сообщения:
    678
    Симпатии:
    0
    Должно работать:
    Код (Delphi):
    const n=10;
    var
    a: array [1..n] of integer;
    k,c,d,i:integer;
    sum:integer;
    begin
    write('c=');
    readln(c);
    write('d=');
    readln(d);

    writeln(' Vvedite elementi massiva');

    for i:=1 to n do begin
    write('element #',i,'=');
    readln(a[i]);
    end;

    k:=0;
    sum:=0;

    for i:=1 to n do

    if (a[i]>=c)and(a[i]<=d) then
    begin
    sum:=sum+a[i];
    k:=k+1;
    end;

    writeln('symma na promegytke= ',sum:8);
    writeln(' kolichestvo 4lenov pirnadlegashih otrezky =',k);

    for i:=1 to n do
    if a[i]<2 then a[i]:=0;

    for i:=1 to n do begin
    writeln('element #',i,'=',a[i]:8);
    end;
    readln;
    end.
    Добавлено :
     
Загрузка...
Похожие Темы - Задание на матрицу
  1. jula939393
    Ответов:
    1
    Просмотров:
    1.353
  2. jula939393
    Ответов:
    1
    Просмотров:
    1.317
  3. nestadima
    Ответов:
    0
    Просмотров:
    2.758
  4. Mark
    Ответов:
    0
    Просмотров:
    601
  5. kira95
    Ответов:
    0
    Просмотров:
    948
Статус темы:
Закрыта.

Поделиться этой страницей