Помогите пож с инфой задание 1 Найти ошибки в программе, реализующей вывод ** экран...

Question

Помогите пож с инфой
задание 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;

Answer 1

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]
Д) Вместо = должно быть :

Comments

Там ещё в первом задании либо надо выводить а[k] либо описывать второй массив b. И еще, возможно описка, но требуется вывести элементы =0, а выводятся наоборот отличные от 0.

---

И ещё)) требуется вывести элементы массива, а выводится их индекс