Помогите сделать программу в паскале

димка67 · 10 Ноя 2011

помогите сделать программу в паскале

помогите сделать программу в паскале.....дана таблица из 11 элементов.составить подпрограмму вычесления среднего арифметического положительных элементов участка.обращаясь к подпрограмме вычеслить среднее арифметическое положительных элементов на участке 3 -7 5 -11

Vladimir_S · 11 Ноя 2011

димка67 написал(а):
помогите сделать программу в паскале.....дана таблица из 11 элементов.составить подпрограмму вычесления среднего арифметического положительных элементов участка.обращаясь к подпрограмме вычеслить среднее арифметическое положительных элементов на участке 3 -7 5 -11

Извольте:

Код:

VAR
 A:Array [1..11] of Real;
 i:Byte;
 SrAr:Real;
 B:Boolean;

Procedure Sred(N_min,N_max:Byte; var SA:Real; var BS:boolean);
var
 j,N_pos:Byte;
begin
 SA:=0;
 N_pos:=0;
 for j:=N_min to N_max do
  If A[j]>0 then
   begin
    Inc(N_pos);
    SA:=SA+A[j];
   end;
 If N_pos>0 then
  begin
   SA:=SA/N_pos;
   BS:=true;
  end
  else BS:=false;
end;

BEGIN
 Randomize;
 For i:=1 to 11 do
  begin
   A[i]:=(random-0.5)*100;
   write(A[i]:8:2);
  end;
 writeln;
 writeln;

 Sred(3,7,SrAr,B);
 If B then
  Writeln('Arithmetic mean in 3..7 is ',SrAr:0:2)
 else
  Writeln('No positive values in 3..7 interval');

 Sred(5,11,SrAr,B);
 If B then
  Writeln('Arithmetic mean in 5..11 is ',SrAr:0:2)
 else
  Writeln('No positive values in 5..11 interval');

 Readln
END.

димка67 · 15 Дек 2011

погмогите сделать программу в паскале))пожалуйста)

1) работа со строковыми переменными!!!
составить программу которая читает текст, считает число ключевых слов 'begin' и число ключевых слов 'end' сравнивает их и выводит на печать сообщение об ошибке если они не равны между собой)

2) работа с множеством
даны три множества x1={1,2,3..20} x2={10,12,13..30} x3={1,3,5..19,21}
сформировать множество y=(x1-x2)+(x1-x3) их которого выделить родмножество у1 чисел, делящихся на 4. на экран вывести множество у и множество у1.

Помогите сделать программу в паскале

димка67

Ученик

Vladimir_S

Ученик

димка67

Ученик