Переделать задачу с с++ на pascal

@Suger · Регистрация: 20.12.2011

Студворк — интернет-сервис помощи студентам

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
#include <stdio.h>
#define len 10  // количество чисел в массиве
//////////  MAIN ///////////
int main(){
    int massiv[len] = { 1,2,3,4,5,6,4,2,4,6 }; // исходный массив чисел
    int fin[2][len] = {}; // сюда записываем чиса и их количество
    int i, j, size=0, count=0; // счётчики
    for( i=0; i<len; i++ ){
        for( j=0;  j<=size  &&  fin[0][j] != massiv[i] ; j++ );
            if ( j <= size && size ) fin[1][j]++; // если число уже есть в массиве fin...
            else fin[0][size++] = massiv[i]; // если встречаем число в первый раз...
    }
    for( i=0; i<=size; i++ )
        if( fin[1][i] > 0 ){ // вывод только тех чисел которые встретились более одного раза
            printf("number %d count %d\n", fin[0][i], fin[1][i] +1 ); // вывод числа и сколько раз оно всретилось
            count++; // счетчик количества чисел входщих в массив более чем по одному разу
        }
    // и наконец главное :
    printf("\n\nOtwet > %d", count ); // сколько чисел входят в массив более чем по одному разу
    getchar(); // пауза
    return 0;
}

@WebMax 2.0 · 21.12.2011, 18:21

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
uses crt;
var i,j,k,y,n,c,v,b,m:integer;
a:array[1..10] of integer;
z:real;
 
begin
write('Размер массив: ');
readln(n);
for i:=1 to n do
     begin
     write('a[',i,']=');
     readln(a[i]);
     end;
c:=1;
writeln('');
for i:=1 to n-1 do
   begin
   for j:=i+1 to n do
       if a[i]=a[j] then
           begin
           k:=a[i];
           c:=c+1;
           a[j]:=-1;
           end;
   if (c>1) and (a[i]<>-1) then writeln('Цифра "',k,'" встречаеться - ',c,' раз.');
   c:=1;
   end;
readln;
end.

@Suger · 21.12.2011, 18:27 **[ТС]**

ОГРОМНОЕ СПАСИБО)

Новые блоги и статьи Все статьи Все блоги /
Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .
Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .

@Suger 2 / 2 / 0 Регистрация: 20.12.2011 Сообщений: 37
	21.12.2011, 18:27 [ТС]
	ОГРОМНОЕ СПАСИБО) 0

Переделать задачу с с++ на pascal

Решение