164)
var a: array [1..10] of real;
i: integer;
begin
for i := 1 to 10 do
begin
a[i] := random(100) - 50;
writeln('[', i, '] => ', a[i]);
end;
writeln('------------');
for i := 1 to 10 do
begin
a[i] := sqr(a[i]);
writeln('[', i, '] => ', a[i]);
end;
<span>end.
169)
var a: array [1..10] of real;
i, s: integer;
begin
for i := 1 to 10 do
begin
a[i] := random(100) - 50;
writeln('[', i, '] => ', a[i]);
end;
writeln('------------');
for i := 1 to 10 do
begin
if (A[i] < 0) then s := s + a[i];
end;
writeln(s);
<span>end.
172)
var a: array [1..10] of real;
i, s: integer;
begin
for i := 1 to 10 do
begin
a[i] := random(100) - 50;
writeln('[', i, '] => ', a[i]);
end;
writeln('------------');
for i := 1 to 10 do
begin
if (A[i] <> 0) then s := s + 1;
end;
writeln(s);
<span>end.
174)
var a: array [1..10] of real;
i, s: integer;
b: real;
begin
for i := 1 to 10 do
begin
a[i] := random(100) - 50;
writeln('[', i, '] => ', a[i]);
end;
writeln('------------');
for i := 1 to 10 do
begin
b := b + a[i];
end;
b := b / 10;
for i := 1 to 10 do
begin
if (a[i] > b) then s := s + 1;
end;
writeln(s);
<span>end.
179)
var a: array [1..10] of real;
i, s: integer;
begin
for i := 1 to 10 do
begin
a[i] := random(100) - 50;
writeln('[', i, '] => ', a[i]);
end;
writeln('------------');
for i := 1 to 10 do
begin
if (i mod 2 = 0) then a[i] := sqr(a[i]);
writeln('[', i, '] => ', a[i]);
end;
<span>end.
Вроде так =)</span></span></span></span></span>
<span>обработка и построение изображения в том числе построение и обработка 3д графики и декодирование видео</span>
{тоже как вариант}
const
v: array [0..9] of integer = (1,0,0,0,1,0,1,0,2,1);
var
x,n: integer;
begin
read(x);
n := 0;
repeat
n := n + v[x mod 10];
x := x div 10;
until x = 0;
write(n)
end.
1)
const d=100;
var a:1..20 ;
begin
Write('Введите кол-во долларов: '); readln(a);
Writeln('Кол-во рублей: ', a*d:0:2);
end.
2)
var a:1..20 ;
d:real;
begin
Write('Введите кол-во долларов: '); readln(a);
Write('Введите курс доллара: '); readln(d);
Writeln('Кол-во рублей: ', a*d:0:2);
end.
В бизнесе генеральный директор четко распределяет обязанности между подчиненными. Одни занимаются построением определенной последовательности действий, другие, подчиняясь этому течению, расширяют и дополняют его необходимой информацией, чтобы в итоге получить необходимый результат.
Когда мы рождаемся, родители вкладывают в нас программу, по которой мы слепо следуем, пока не вырастем. Но будучи чуть постарше, начинаем развивать некий алгоритм внутри себя, чтобы как-то проявиться, добиться высот.
Человек, который составляет программы, должен в голове моделировать алгоритм будущего решения. Если же он не обладает достаточным опытом, то и результат может оказаться другим.