-18 | 36 | 0 | -3 | 4 | 15 |
-18 - 1 элемент в массиве с индексом 0 (потому что это первый элемент в массиве).
36 - 2 элемент в массиве с индексом 1 (потому что это второй элемент в массиве).
0 - 3 элемент в массиве с индексом 2 (потому что это третий элемент в массиве).
-3 - 4 элемент в массиве с индексом 3 (потому что это четвертый элемент в массиве).
4 - 5 элемент в массиве с индексом 4 (потому что это пятый элемент в массиве).
15 - 6 элемент в массиве с индексом 5 (потому что это шестой элемент в массиве).
//Pascal ABC.NET v3.0 сборка 1111
var
a,k,s:integer;
begin
readln(k); //вводим k
a:=0;
s:=0;
while a>=0 do //пока а >=0
begin;
if a>k then s:=s+a; //если a>k, тогда добавляем к s
readln(a); //каждый раз вводим в a
end;
writeln(s); //выводим s
<span>end.
Пример ввода:
45
34
56
67
<span>-2
Пример вывода:
123</span></span>
Var i,p:real;
begin
i:=0.1;
p:=1;
while (i<=10) do
begin
p:=p*(1+sin(pi*i/180));
i:=i+0.1;
end;
writeln ('Rezultat: ',p);
readln;
end.
Информационно моделью могут служить изображения фильмов, видео и т.д., знаки (текст например), графические модели ( график чертеж), комбинированные изображения ( карты)
819 = 1100110011, -278 = -100010110