<span>program 123;
uses crt;
var m, n: longint;
k: integer; {счетчик цифр}
begin
clrscr;
{Вводим целое число.}
writeln('Введите N='); readln(n);
{Запоминаем его и счетчику цифр присваиваем начальное значение.}
m:=n;k:=0;
{Пока m<>0 делать цикл.}
while m <>0 do
begin
{"Уменьшаем" число на последнюю цифру, т. е. в 10 раз.}
k:=k+1; m:= m div 10; {Inc(k) }
end;
{Вывод количества цифр.}
writeln('B числе ',n,'- ',k, ' цифр!');
readln;
end.</span>
Var A: array[0..100] of integer;
Алгоритм – это понятное и точное предписание исполнителю выполнить конечную последовательность команд, приводящую от исходных данных к искомому результату. Алгоритмы окружают нас повсюду: кулинарный рецепт - алгоритм приготовления блюда, инструкция по использованию стиральной машины и т.д.
Свойства алгоритмов. Понятность – каждый шаг представлен в форме, понятной исполнителю (на его языке). Дискретность – разбиение на отдельные элементарные шаги. Однозначность - детерминированность, определённость формулировок, не допускающая разных толкований (исполнителю должно быть точно понятно, какой шаг выполнять дальше). Результативность – получение результата после конечного числа шагов, предусматривающее все возможные варианты (последовательность шагов не должна быть бесконечной).
Способы записи алгоритмов словесный; табличный; графический; программа на алгоритмическом языке.
Исполнителем алгоритма может быть не только человек, но и автоматическое устройство (реальное или воображаемое). В этом случае шаги алгоритма часто называют командами и вводят их в устройство в той форме, в которой оно сможет их обрабатывать. Языки алгоритмического управления устройствами являются формальными. Алгоритм, представленный на языке устройства, называется программой для этого устройства.
Исполнителя характеризует: Системой команд Исполнителя называется совокупность всех команд, которые может выполнить Исполнитель. Совокупность всех действий, которые он может выполнить в ответ на эти команды, называется системой допустимых действий Исполнителя. Среда – это обстановка, в которой работает исполнитель Элементарное действие – действие, совершаемое исполнителем после вызова команды. Отказы. Возникают при вызове команды в недопустимом для данной команды состоянии среды.
Ответ:
//////////////////////////////////////////////////
Объяснение:
Var a : array [1..3] of array [1..3] of integer;
i,j : shortint;
c1,c2,s1,s2 : integer;
begin
a[1][1]:=-10;
a[1][2]:=20;
a[1][3]:=13;
a[2][1]:=-22;
a[2][2]:=11;
a[2][3]:=-5;
a[3][1]:=4;
a[3][2]:=12;
a[3][3]:=-8;
s1:=0; s2:=0; c1:=0; c2:=0;
for i:=1 to 3 do begin
for j:=1 to 3 do begin
if a[i][j]>0 then begin
s1:=s1+a[i][j];
inc (c1);
end else begin
s2:=s2+a[i][j];
inc (c2);
end;
end;
end;
writeln (s1/c1:0:0);
<span> writeln (s2/c2:0:2);
</span>end.