Type
array100 = array[1..100]of integer;
var
x: array100;
i, n, j, t, min, max: integer;
procedure show(x: array100; n: integer);
var i:integer;
begin
writeln();
writeln('Вывод массива[',n,']:');
for i := 1 to n do
write(x[i], ' ');
writeln();
end;
begin
n := 20;
max := -200;
min := 200;
for i := 1 to n do
begin
x[i] := random(2*n) - n;
end;
show(x, n);
for i := 1 to n do
begin
if (x[i] > 0) and (x[i] mod 2 = 1) then begin
if x[i] > max then max := x[i];
if x[i] < min then min := x[i];
end;
end;
writeln('Max = ', max, ' Min = ', min);
i := 1;
while i <= n do
begin
if x[i] = 0 then begin
for j := i + 1 to n do
x[j - 1] := x[j];
n := n - 1;
end
else i := i + 1;
end;
show(x,n);
end.
// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var t:= ReadlnString('Введите строку').Where(i -> (i >= '0')and(i <= '9')).JoinIntoString('');
Write('Строка чисел: ');
t.Println();
end.
Питон
q=int(input())
w=int(input())
e=int(input())
if q< werane ()
print(sym)
Алгоритм - это метод (способ) решения задачи, записанный по определённым правилам, оьеспечивающим однозначность его понимания и исполнения при всех значениях исходных данных.
Свойства алгоритма
1) дискретность - разбиение алгоритма на последовательность отдельных законченный действий которые расположены в порядке их выполнения.
2)тосность - строго опреленная последовательность шагов. Строгая последовательность выполняемых действий.
3)определенность- каждая команда алгоритма должно быть понятно исполнителю.
4)результативность - алгоритм должен выполниться за конечное число символов.
5) массовость - каждый алгоритм разработанный для решения некоторых задачи, должен быть применил для решения задач этого типа при всех допустимых значениях исходных данных.
Файл это объект в виде совокупностм данных, хранящихся во внешней памяти компьютера.