Пож с инфой 1 найти ошибки в программе, реализующей вывод на экран элементов одномерного массива равных 0: program mas1; var a=array[1..10] integer; for k: =1 to 10 do if b[k]< > 0 writeln(k); readln; end. 2 какие из описаний одномерных массивов не являются правильными и почему: а) var a: array[1..20] of integer; б) var b: myarray; b) var dd: array[1] of integer; г) var sd: array [5..30] of integer; д) var mas=array[1..50] of integer;

Program mas1;
Var a:array[1..10] of Integer; k:integer;
begin
{ Здесь еще должен быть ввод элементов массива }
For k:=1 to 10 Do
If a[k]<>0 then Writeln(k);
Readln;
End.

Задание 2
Б) нет размерности массива [...]
В) должна быть описана граничная пара [a..b]
Д) Вместо = должно быть :

Граф - множество вершин и ребер, соединяющих эти вершины.
Он несет информацию об элементах системы и связи между ними.
Элементы системы изображаются как вершины или узлы графа.
Отношения между ними изображаются как ребра или дуги графа.
Деревом называют ациклический (то есть между любыми вершинами есть только один путь), связный (то есть от любой вершины графа можно добраться в другую) граф.
Корень дерева - это вершина с нулевой степенью захода (то есть в нее не ведут другие ребра). Для неориентированного графа это просто выбранная нами вершина.
Ветви - это ребра дерева.
Листья дерева - это вершины с нулевой степенью исхода (то есть из них не выходят ребра), т.е. не имеющих поддеревьев.
Надеюсь объяснил доступно.

№1
а) Результат выполнения: вывод p=75.
б) Условие: Вычислить произведение элементов массива A , кратных 5
в) См. вложение.

№2
//PascalABC.Net 3.2
begin
var a:=arrrandom (20, -10, 50); a.Println;
for var i:=0 to 19 do if (a[i] mod 5)<0 then print(a[i]);
end.

№3
begin
var t:=arrRandom(85, -40, 50);
var sum:=0;
for var i:=0 to 84 do if (t[i] mod 2)=0 then sum+=t[i];
t.Println;
for var i:=0 to 84 do if (t[i] mod 2)=0 then t[i]:=sum;
t.Println; write ('Сумма=', sum);
end.

№4
begin
var x:=readreal('Введите x =');
var y:=readreal('Введите y =');
print ('D =', min(x-21,5*y+1)-min(x*5 +2, y*4-10));
end.