Парни кто шарит в Pascal, отзовитесь!

Я не шарю, но вот тебе совет.Поищи в посковике vingard или vingrard форум, зарегистрируйся и проси о помощи.Мне самому в том году там задач пять помогли решить за 3 дня.

Попробую... Просто хотелось бы чтоб на своем родном кто то помог...Вот
знаю что кто то сто пудово знает, подожду еще немного, может последую
твоему совету...Спасибо +1

Первая вообще ерунда:

uses crt;
var s: string; m:set of char; i,f: integer;
begin
m:=['у','е','о','ы','а','э','я','и','ю','ё']; {тут перечислены только русские маленькие гласные, если нужны другие просто дописываешь в множество}
clrscr;
writeln('Введите строку:'); readln(s);
for i:=1 to length(s) do
if (s[i] in m) then f:=f+1;
writeln('Количество гласных букв в строке: ',f);
readln;
end.

А во второй я что-то не поняло... Что сделать то надо? )

Спасибо большое +10 тебе по темам.... Не знаю во второй, вот такое прям задание вычислить среднюю скорость и S[i]=V[i]*t[i]. У нас просто препод му**к молодой просто раздал методички и задания и сказал е**шить как хотите. Вот это все задание на листе....

Вот 2 задача в моем понимании:

uses crt;
var v,t,s: array[1..20] of integer; v1,s1,t1: real; i:integer;
begin
for i:=1 to 20 do
begin
clrscr;
write('Введите v',i,': '); readln(v[i]);
write('Введите t',i,': '); readln(t[i]);
s[i]:=v[i]*t[i];
v1:=v1+v[i];
t1:=t1+t[i];
s1:=s1+s[i];
end;
clrscr;
v1:=v1/20; t1:=t1/20; s1:=s1/20;
write('V: ');
for i:=1 to 20 do
begin
write(v[i],' ');
end;
writeln;
write('T: ');
for i:=1 to 20 do
begin
write(t[i],' ');
end;
writeln;
write('S: ');
for i:=1 to 20 do
begin
write(s[i],' ');
end;
writeln;
writeln('Средняя V: ',v1:3:2);
writeln('Средняя T: ',t1:3:2);
writeln('Средняя S: ',s1:3:2);
readkey;
end.

Но я могу ошибаться...

Edited

Респект таким людям по жизни огромный...
1 работает все замечательно, 2 домазгую.
Спасибо еще раз. +1