+1, +2, +3, +4 арифметическая прогрессич
во-первых: задан ли двумерный массив с?
во-вторых, операторская скобка begin не нужна
в-третьих не поставлена точка с запятой после <span>c[i,j]:=a[i,j]+ a[i,j]</span>
<span>скоре всего ошибка в третьем...</span>
<span>алгоритм выполняет следующее: он берет элемент из двум. массива и в новый двумерный на это же место присваевает элементу значние, равное сумме этого элемента и его себя опять же,или,подругому, присвает ему значение, равное двум соотв. ему элементам в массиве предыдущ</span>
<span>например</span>
дан массив 2х3:
1 3 45
9 8 2344
тогда новый массив будет иметь вид:
2 6 90
18 16 4688
Var
a, b, c: real;
n: integer;
begin
Write('Введите через пробел три числа: ');
Readln(a, b, c);
if a > 0 then n := 1 else n := 0;
if b > 0 then n := n + 1;
if c > 0 then n := n + 1;
Writeln('Положительных чисел- ', n)
end.
Тестовое решение:
Введите через пробел три числа: -3.54 2.16 4
Положительных чисел- 2
Переведем 30 (10)<span> в двоичную систему вот так:</span>
<span>Целая часть числа находится делением на основание новой :(на фото)</span>
<span>
</span>
Получилось:<span>30 (10) = 11110 (2)</span><span> </span>