«Основы алгоритмизации и программирования», Домашняя работа Опции

[Happy User!!!]

Это для матерых программистов.....14 вариант.....блок-схемы ненадо....сам сделаю.....

!

DOC удален: Правила Форума, 1.11 ... Присоедини файл, разрешенный правилами. volvo

[Happy User!!!]

Извените....правила не читал сижу через GPRS (т.е. от мобильного по трафику) теперь буду знать.....

ИСПРАВЛЯЮСЬ!!!!
Задание 1
Найти ошибки в следующей программе.
Напишите исправленный вариант!!! =)
a) {две ошибки}
var a = array[1..20] of integer;
i, b, c: integer;
begin
- - - - - - -;
c := a[1] + b[1];
- - - - - - - -;
end.

b) {две ошибки}
type Mas: array[1..30] of real;
var i : integer;
begin
- - - - - - -;
writeln (a[i]);
- - - - - - - -;
end.

с) {две ошибки}
var a: Mas;
type Mas = array[1..20] of integer;
begin
- - - - - - -;
readln(a1);
- - - - - - - -;
end.

d) {две ошибки}
var a: array[1..n] of integer;
begin
c := a[1] ;
writeln(a);
- - - - - - - -;
end.


f) { найти 2 ошибки}
const n=5;
var a: array[1..n,1..n] of integer;
begin
- - - - - - - -;
writeln(‘первый эл-т =’, a[1]);
writeln(‘последний эл-т = ’, a[n]);
end.

e) { найти 2 ошибки}
var a: array[1..5,1..3] of integer;
begin
- - - - - - - -;
writeln(a[2,3],’ ‘,a[6,2] );
writeln(‘1-й элемент=’, a);
end.