Developing.ru

Прошу помощи. Могут отчислить из колледжа. Малозначительные ошибки значения не имеют, т.к. уверен чуть более чем полностью что проверять каждую программу препод не будет.

1. Фамилии и имена 25 учеников класса записаны в двух различных масси-вах. Напечатать фамилию и имя каждого ученика на отдельной строке.
2. Название 20 – ти футбольных клубов и городов, которые они представля-ют, записаны в двух различных массивах. Напечатать название и город каж-дого клуба на отдельной строке.
3. Даны названия 26 – ти городов и стран, в которых они находятся. Среди них есть города, находящиеся в Италии. Напечатать их названия.
4. Известны данные о 16 – ти сотрудниках фирмы: фамилия и отношения в воинской службе (военнообязанный или нет ). Напечатать фамилии всех во-еннообязанных сотрудников.
5. Известны сведения о высоте над уровнем моря 15-ти горных вершин. Все значения выражены в метрах. Напечатать названия вершин, чья высота пре-вышает 3000 м над уровнем моря.
6. Даны названия 20-ти частей света, в которых они находится. Определить, есть среди них страны, находящиеся в Африке или в Азии. В случае положи-тельного ответа напечатать их названия.
7. Известны данные о 20- ти учениках класса: фамилии, имена, отчество дата рождения (год, номер месяца и число). Определить, есть ли в классе ученики, у которых сегодня день рождения, и если да, то напечатать их имя и фами-лию.
8. Имеется информация о количестве осадков, выпавших за день месяца, и о температуре воздуха в эти дни. Определить, какое количество осадков выпа-ло в виде снега и какое – в виде дождя.(Считать, что идёт дождь, если темпе-ратура воздуха выше 0).
9. Известны данные о мощности двигателя (в л.с.) и стоимость 30-ти легко-вых автомобилей. Определить общую стоимость автомобилей, у которых мощность двигателя превышает 100 л.с.
10.Известны возраст и пол каждого из 20-ти человек. Найти общую массу мужчин.

А подумать - совсем никак? Это не записи, а массивы. Большинство решается в одну строчку - for i:=1 to заданное число элементов do begin {что-то сделать} end; Причем что-то сделать везде разное, но похожее
1. - writeln(name, ' ', surname), 2 так же
3 if country='Italy' then writeln(city);, 4,6 - так же
5 if height>3000 then writeln(name);
7 - примерно так же, только тут уже разумнее делать с записями
8-10 - см. "Сумма ряда"

Известны возраст и пол каждого из 20-ти человек. Найти общую массу мужчин. пожалуйста помагите решить задачу.......

Мой возраст - 24 года, я мужчина. Найдите мою массу.

a skol`ko vi rostom? neznau, navernoe gde-to v predelah 60 i 80 kg.
mne v etoi zada4e nyjno naidti obwii ves myj4in. tak vot, mne patcani pomagli, i rewili ety ne prostyu zada4y:

program ex;
type
Peopl=record
n:integer;
VOZR:integer;;
Pol:string[30];{M,Ж}
Mas:integer;
end;
var
s eopl;
var F:file of peopl;
People:array[1..5] of peopl;
i:integer;Kilo:integer;
begin
writeln('Введите сведения о PEOPL');
assign(f,'масса.txt');
rewrite(f);
for i:=1 to 3 do
begin
Write('Ves');
readln(people.mas);
write('VOZRAST');
readln(people.VOZR);
write('POL');
readln(people.Pol);
write(F,People);
writeln('------------');
end; begin
for i:=1 to 3 do begin
if people.Pol='М' then kilo:=(people.mas)+Kilo; end; writeln('общий Ves=',kilo); end;
close(f);
reset(f);
while not eof(f) do
begin
read(f,people);
end;
close(f);
end.
proverte ee, tol`ko ne govorite 4to ne pravil`no