Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Pascal] Определить количество различных

Автор: Sun_Burn 2.1.2007, 13:38

1) Дана линейная таблица А[1: N], N <=50. Определить количество различных элементов таблицы (которые встречаются хотя бы один раз). Составьте таблицу индексов элементов таблицы А, которые не повторяются (встречаются один раз).

2) Дана прямоугольная таблица A[1:N, 1:N], N <=50.
Составить линейную таблицу с сумм элементов, которые размещены на главной диагонали и линиях, которые параллельны ей.

3) Дано предложение, которое складывается со слов, разделенными пробелами (любым их колличеством), может содержать и др. (запятые, точки с запятой, двоеточие, дефис) и заканчивается точкой.
Удалить их него все гласные буквы.

M
Alexeis

Модератор: Пожалуйста, один топик - один вопрос.

Модератор: Название темы должно отражать ее суть!

Для каждого вопроса сделайте свою тему.

Автор: sergejzr 2.1.2007, 13:48

Для домашних заданий, курсовых, существует "Центр Помощи"

Тема перенесена!

Автор: Rodman 2.1.2007, 14:17

Sun_Burn, в чем или на чем решать надо???

Автор: Zero 2.1.2007, 16:22

Цитата(Rodman @ 2.1.2007, 14:17

)

Sun_Burn, в чем или на чем решать надо???

Если учитывать что перенеснеа из раздела паскаль, то наверно на нём. smile

Автор: Sun_Burn 2.1.2007, 17:39

вообще это нужно на ИнтАле, но на паскале будет самое то...

Автор: Rodman 2.1.2007, 17:42

Код


uses crt;
var a,ind:array [1..50] of shortint;
   i,n,count,flag,sec:integer;
begin
 clrscr;
  writeln('Vvedite koli4estvo elementov  ');
  readln(n);
   for i:=1 to n do
    begin
     write('element [',i,']= ');
     readln(a[i]);
    end;
sec:=1;
count=0;
 for i:=1 to n do
begin
           flag:=0;
   for j:=1 to n do
   begin
       if(a[j]=a[i])then
       begin
          inc(flag);
       end; 
   end
   if(flag=1)then
   begin
       inc(count);
       ind[sec]:=a[i];
       inc(sec);
   end; 
end;
end.

вроде так...

Добавлено @ 17:44

Цитата(Sun_Burn @ 2.1.2007, 16:39

)

вообще это нужно на ИнтАле,

че это?

Автор: Sun_Burn 2.1.2007, 18:41

язык программирования в школе... херь еще та...