Простые програмки на TPascal

[cL1zMa]

Помогите пожалуйста кто чем сможет...

Задание №1. Заполнить массив из 12 элементов случайными целыми числами от -100 до 100 и подсчитать количество неотрицательных значений, включая ноль. Написать программу на языке Турбо Паскаль.

Задание №2. Заполнить двухмерный массив 5 на 6 по формуле I*I-А*J и подсчитать количество неотрицательных элементов, включая ноль. Коэффициент А запросить с клавиатуры. Написать программу на языке Турбо Паскаль.

Задание №3. Заполнить массив из 5 строк произвольными словами. Найти самое длинное и короткое слова и поменять их местами. Задать с клавиатуры комбинацию из двух символов которую заменить во всех словах на три символа А. Написать программу на языке Турбо Паскаль.

[Alex21]

-=1=-
program Massiv;
var i,kolvo:integer;
a:array[1..12]of integer;
begin
Randomize();
kolvo:=0;
{заполняем массив значениями}
for i:=1 to 12 do
begin
a[i]:=Random(100)-Random(100);
end;
{ищем кол-во значений больших нуля}
for i:=1 to 12 do
begin
{при нахождении очередного большего нуля значения kolvo увеличиваем на 1}
if a[i]>=0 then inc(kolvo);
end;
{вывод на экран результатов}
if k>0 then Writeln('Кол-во чисел, больших нуля '+kolvo) else
Writeln('Нету чисел, больших нуля!!!');
end.

[Alex21]

-=3=-
Че то было здесь http://www.programmersforum.ru/showthread.php?t=4431

[Alex21]

-=2=-
programm massiv_2d;
var
i,j,kolvo:integer;
A:real;
M:array[1..5,1..6]of integer;
begin
kolvo:=0;
Write('Введите А ');
Read(A);
{заполняем массив}
for i:=1 to 5 do
begin
for j:=1 to 6 do
begin
M[i,j]:=(i*i-A*j);
end;
end;
{считаем}
for i:=1 to 5 do
begin
for j:=1 to 6 do
begin
if M[i,j]>=0 then inc(kolvo);
end;
end;
{вывод на экран результатов}
if k>0 then Writeln('Кол-во чисел, больших нуля '+kolvo) else
Writeln('Нету чисел, больших нуля!!!');
end.

[cL1zMa]

Alex21 спасибо большое!
Помогите пожалуйста ещё с несколькими задачками..

1. Запросить строку с клавиатуры и подсчитать в ней количество цифр, букв, пробелов. Написать программу на языке Турбо Паскаль.

2. Запросить с клавиатуры данные о студенте: фамилия, имя, отчество, год рождения. Запомнить их в типизированном файле. Написать программу на языке Турбо Паскаль.

3. Организовать поиск студентов по заданному году рождения в существующем типизированном файле (фамилия, имя, отчество, год рождения). Написать программу на языке Турбо Паскаль.

[bill]

1. все кроме знаков препинания?

[Carbon]

1.

var digits,letters,spaces,count:integer;
     line:string;

begin
  Readln(line);
  count:=Length(line);
  while count>0 do
  begin
    if line[count] in ['0'..'9'] then digits:=digits+1
    else
      if line[count]=' ' then spaces:=spaces+1
      else
        if line[count] in ['A'..'Z','a'..'z','А..'Я','а'..'я'] then letters:=letters+1
    count:=count-1
  end;
  writeln(digits);
  writeln(letters);
  writeln(spaces);
end.

Остальное влом.

[cL1zMa]

Carbon спасибо.
Остальное помогите плиз.

2. Запросить с клавиатуры данные о студенте: фамилия, имя, отчество, год рождения. Запомнить их в типизированном файле. Написать программу на языке Турбо Паскаль.

3. Организовать поиск студентов по заданному году рождения в существующем типизированном файле (фамилия, имя, отчество, год рождения). Написать программу на языке Турбо Паскаль.

[Alex21]

Сообщение от cL1zMa

2. Запросить с клавиатуры данные о студенте: фамилия, имя, отчество, год рождения. Запомнить их в типизированном файле. Написать программу на языке Турбо Паскаль.

3. Организовать поиск студентов по заданному году рождения в существующем типизированном файле (фамилия, имя, отчество, год рождения). Написать программу на языке Турбо Паскаль.

Вот написал тут кое-что, наличие ошибок Гарантирую! (паскаля нет, есть блокнот ), так что пробуйте!

[cL1zMa]

Alex21, благодарю. Сейчас буду тестить