1. Наш канал codeby в telegram. Пишем об информационной безопасности, методах защиты информации, о программировании. Не пропускай новости с кодебай, будь в тренде ! Подробнее ...

    Скрыть объявление

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

Тема в разделе "Вопросы новичков и не только", создана пользователем -, 10 июн 2010.

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

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

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

    я не могу понять какая ошибка:
    Код:
    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 :-]

    Репутация:
    0
    Регистрация:
    9 ноя 2009
    Сообщения:
    665
    Симпатии:
    1
    Должно работать:
    Код:
    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.
    Добавлено :
     
Загрузка...
Статус темы:
Закрыта.

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