Александрович833
?>

Program z4; Type Arr=array[1..255] of integer; Var A, b:arr; e:array [1..255] of real;M, v, n:byte;procedure sa (x, y: arr; z:byte; var c:array[1..255] of real); Var i, j, K :byte; begin i:=1; j:=1; for k:=1 to z do begin c[k]:=(X[i]+y[j])/2; x[i]:=x[i+1]; y[j]:=y[j+1]; write (' ', c[k]); end; end;beginrandomize;write('введите N'); read(n); for M:=1 to n do begin A[m]:=random (90)-43; Write (' ', a[m]); End; writeln;for v:=1 to n do begin B[v]:=random (87)-36; Write (' ', b[v]); End; sa (a, b, n, e);End​. что не так?

Информатика

Ответы

inj-anastasia8
В состав алфавита языка Паскаль входит:
  Символы для составления переменных-
                                                                латинские(строчные, прописные)
                                                                символ "_"
                                                                цифры (0..9)
  Символы разделители (пробельные символы)
  Составные символы - особенная группа символов, которая  
                                           воспринимаются компилятором как     
                                           один символ "<=", ":=",">=", "..", "//" "<>" "(*" "*)"
  Зарезервированные слова- слова, несущие определенное     
                                                    смысловое значение для компилятора
  Спец-символы- символы, которые предназначены для построения 
                               конструкций языка, в Паскале это:
                                                                             ' - + / * : ; = { } [ ] ( ) $ и т.п

  На самом деле их больше, но это основные.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Program z4; Type Arr=array[1..255] of integer; Var A, b:arr; e:array [1..255] of real;M, v, n:byte;procedure sa (x, y: arr; z:byte; var c:array[1..255] of real); Var i, j, K :byte; begin i:=1; j:=1; for k:=1 to z do begin c[k]:=(X[i]+y[j])/2; x[i]:=x[i+1]; y[j]:=y[j+1]; write (' ', c[k]); end; end;beginrandomize;write('введите N'); read(n); for M:=1 to n do begin A[m]:=random (90)-43; Write (' ', a[m]); End; writeln;for v:=1 to n do begin B[v]:=random (87)-36; Write (' ', b[v]); End; sa (a, b, n, e);End​. что не так?
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Юрий197
mantseva
Gainalii1912
yuliyaminullina
Коробкова1437
marysya60
Natysya7777
Aivazyan
Ubuleeva826
dmitryshigin
kate281078
komarov-dmitriy
janetp
Nikolaevich1534
Yelizaveta1848