Оперативная память : RAMRecovery Tool v1.7
Архиватор : WinRar
Антивирусная рограмма: Kaspersky
Коммуникационная программа: ICQ
Система программирования: Delphi
Текстовый редактор: WordPad
Графический редактор: mspaint
Редактор презентаций : ms power point
Электронные таблицы: excel
Электронное учебное издание(учебники , тренажер , энциклопедия...) : PHP and MySQL - Andy Harris
<span>Игра : GTA 5</span>
1.Начало
2.Сделать ход на 2 клетки вправо
3.Сделать ход вверх на 1 клетку
4.ход на 2 клетки влево
5.Ход на 2 клетки вверх
6.ход на 4 клетки вправо
7.ход на 2 клетки вниз
8.Ход на 1 клетку вправо
9.ход на 1 клетку вверх)
У тебя не правильно сделан алгоритм
30, 31,32,33,34,35,36,37,38,39
50, 51, 52, 53, 54, 55, 56, 57, 58, 59
Var
a:array[1..100000] of integer;
b:array[0..9]of boolean;
n,i:integer;
Procedure Two_Max;
var
cnt, i:integer;
begin
For i:= 1 to n do
b[a[i]]:= true;
For i:= 9 downto 0 do
if (b[i] = true)and(cnt < 2) then
begin
inc(cnt);
Write(i, ' ');
end;
end;
begin
Read(n);
For i:= 1 to n do
Read(a[i]);
Two_Max;
end.
алг и кц - определение самого алгоритма
объявляются целочисленные переменные a, b,t
пользователем вводится переменная a
a присваивается переменной t
0 присваивается переменной b
начало цикла с условием, что t не должен равняться 0
остаток от деления числа t на 10 присваивается переменной b
деление с остатком числа t на 10 присваивается переменной t
