Одномерный массив и записи Опции

[Галия]

Привет! Поиогите пожалуйста решить 2 задачи!
В одномерном массиве, состоящем из n вещественных элементов, вычислить:
кол-во элементов массива, равных 0.
сумму элементов массива, расположенных после минимального элемента.
Упорядочить элементы массива по возрастанию модулей элементов

Записи:
Описать переменную расписания, содержащую:
день недели
кол-во пар в этот день
время начала и конца пары
название предмета
фамилию препода
Вывести полную информацию о занятиях, относящихся к предметной области "Информатика"
Заранее спасибо!!!

[Catty]

Код

uses Crt;
const n=8;
var a:array[1..n] of real;
i,j,k,l:byte;  min,S,h:real;
begin
ClrScr;
writeln('vvedite masiv:');
for i:=1 to n do begin
write('vvedite',' ',i,'-uj element masiva:>',' ');
readln(a[i]);
end;
writeln;
writeln('zadanuj masiv:');
for i:=1 to n do
write(a[i]:4:1);
writeln;
k:=0;
for i:=1 to n do
if a[i]=0 then inc(k);
writeln;
writeln('kolichestvo nulevux elementov masiva=',' ',k);
min:=a[1]; l:=1;
S:=0;
for i:=2 to n do
if a[i]<min then
begin
min:=a[i];
l:=i;
end;
for j:=l to n do
S:=S+a[j];
writeln;
writeln('min=',' ',min:4:1);
writeln('summa elementov posle min=',' ',S:4:1);
writeln;
for i:=1 to n-1 do
for j:=1+i to n do
if abs(a[i])>abs(a[j]) then
begin
h:=abs(a[i]);
a[i]:=abs(a[j]);
a[j]:=h;
end;
writeln;
writeln('sortirovka masiva po vozrostaniu');
for i:=1 to n do
writeln(a[i]:4:1);
end.

первая программа

во второй просто ввести записи и и сделать фильтрацию по слову "информатика" или как?

Сообщение отредактировано: Catty - 3.05.2004 1:04