Перейти к содержанию

olegbat

Пользователи
  • Постов

    10
  • Зарегистрирован

  • Посещение

Достижения olegbat

Новобранец

Новобранец (2/14)

  • Первое сообщение
  • Соавтор
  • Неделя в сообществе
  • One Month Later
  • Год в сообществе

Последние значки

35

Репутация

  1. Кто они? ... Ваше мнение. Читать полностью: http://www.gazeta.ru/politics/2012/03/12_a_4088329.shtml
  2. Возвращение Владимира Путина - мрачное предзнаменование для России и Запада
  3. У них своя «Россия» Бизнесмен Сергей КОЛЕСНИКОВ — о том, как строилась финансовая империя Владимира Путина http://www.novayagazeta.ru/inquests/50173.html?p=2#comments
  4. Бывший директор НИИ статистики Василий Симчера со словами: «Надоело врать!» представил реальные данные http://www.km.ru/v-rossii/2011/11/14/ekonomicheskaya-situatsiya-v-rossii/obnarodovana-shokiruyushchaya-pravda-ob-isti
  5. Ошибки: В строке 4: массив задан от 1 до 5, а в инициализации массива (строка 11) от 0 до 4 В строке 5: Функция ct имеет 3 аргумента, а вызов (строка 16) идет с одним.
  6. "solo7777" 1)В массиве целых чисел с количеством элементов n найти наиболее часто встречающееся число. Если таких чисел несколько, то определить наименьшее из них. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; const n = 10; type TForm1 = class(TForm) Button1: TButton; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } a: array [0..n-1] of integer; b: array [0..1,0..n-1] of integer; c: array [0..1] of integer; public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); var i,j: integer; begin a[0]:=7; a[1]:=1; a[2]:=4; a[3]:=7; a[4]:=7; a[5]:=4; a[6]:=3; a[7]:=4; a[8]:=3; a[9]:=1; for i:=0 to 1 do for j:=0 to n-1 do b[i,j]:=0; end; procedure TForm1.Button1Click(Sender: TObject); var i,j1,j,k,l:integer; bool: boolean; begin i:=0; j:=-1; for k:=0 to n-1 do begin bool:=false; for j1:=0 to j do begin if b[0,j1]=a[k] then begin bool:=true; break; end; end; if bool then inc(b[1,j1]) else begin inc(j); b[0,j]:=a[k]; b[1,j]:=1; end; end; bool:=true; while bool do begin for j1:=0 to j-1 do begin bool:=false; if b[1,j1] c[0]:=b[0,j1]; c[1]:=b[1,j1]; b[0,j1]:=b[0,j1+1]; b[1,j1]:=b[1,j1+1]; b[0,j1+1]:=c[0]; b[1,j1+1]:=c[1]; bool:=true; end; end; end; bool:=true; l:=b[1,0]; while bool do begin for j1:=0 to j-1 do begin bool:=false; if b[1,j1+1]<>l then break else begin if b[0,j1]>b[0,j1+1] then begin bool:=true; c[0]:=b[0,j1]; c[1]:=b[1,j1]; b[0,j1]:=b[0,j1+1]; b[1,j1]:=b[1,j1+1]; b[0,j1+1]:=c[0]; b[1,j1+1]:=c[1]; end; end; end; end; //Искомый результат = b[0,0] end; end. 2)Дана квадратная матрица A(N,N). Записать на место отрицательных элементов матрицы - нули,а на место положительных - единицы. Вывести на печать треугольную матрицу в общепринятом виде. for i:=1 to N do begin for j:=1 to N do begin if A[i,j]>0 then A[i,j]:=1 else A[i,j]:=0; end; end;
  7. Предлагаю фотографировать нарушения ПДД все машины членовозов, гаишников и выкладывать здесь. Пусть страна знает своих "героев"!
×
×
  • Создать...