Ошибка вывода - Pascal ABC

  1. Pascal1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 uses crt; var    x: array [1..255] of integer;   m,a,n,i:integer; begin    clrscr;    write('Введите число a: '); readln(a);    write('Введите кол-во чисел в последовательности n: '); readln(n);    for i:=1 to n do     begin        write('Введите член последовательности = x',i,': '); readln(x[i]);     end; for i:=1 to n do if x[i]=a then m:=i; write('Число А находится на месте №',m); readkey; end. Если ввести число 2 и кол-во этоменов х, и во всех элементах прописать 2, то присвотся последнее, как сделать все?


textual

Код:

uses crt;
var
   x: array [1..255] of integer;
  m,a,n,i:integer;
begin
   write('Введите число a: '); readln(a);
   write('Введите кол-во чисел в последовательности n: '); readln(n);
   for i:=1 to n do
    begin
       write('Введите член последовательности = x',i,': '); readln(x[i]);
    end;
writeln('Число А находится на местах №');
for i:=1 to n do
if x[i]=a then write(i,' ');
end.


Похожие ответы
  1. Pascal1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 Var n,k,s,x:integer; a,b,c:real; begin Write ('vvedite nachalnoe i konechnoe znachenie, shag); readln(n); readln(k); readln(s); write('vvedite a,b,c); readln(a); readln(b); readln(c); for x:=n to k do begin    if (x<5) AND (c<>0) then       begin       f:=-a*x*x-b;       write(f);       end;    else if (x>5) AND (c=0) then       begin       f:=(x-a)/x;       write(f);       end;    else        begin        f:=(-x)/c;        write(f);        end; x:=x+s; end; end.Пишу в Pascal ABC, пока выдал ошибку в 5 строке: неизвестный идентификатор Write, в чём ошибка?

  1. Прошу помочь. В чем ошибка? Программа утолщает линии, а нужно, чтобы она самостоятельно строила такие же деревья независимо от месторасположения.

  1. Даны натуральные k, m. Написать процедуры для вывода следующих фигур: а) k - строк, m - столбцов, б) k - строк, m – половина разности длины двух любых соседних строк.

  1. Окей, задача звучит так: Найти номер наименьшего элемента в массиве, заданного датчиком случайных чисел на интервале [-20, 25]. Размер произвольный. То, что получилось, видите ниже. Выдает аж 5 незнакомых мне ошибок, вообще без понятия, что с ними делать, помогите пожалуйста

  1. Pascal1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 type  User=class;   puclic    Nickname:string;    Pass:integer;    Group:string; end; var  u:User; begin  u:=new User;  writeln('Äîáðî ïîæГ*ëîâГ*ГІГј Гў ñèñòåìó. ÏðåäñòГ*ГўГјГІГҐГ±Гј, ïîæГ*ëóéñòГ*.');  write('ÓêГ*æèòå Г‚Г*Гё ïñåâäîГ*ГЁГ¬: ')  readln(u.Nickname);  write('Г‡Г*ìå÷Г*òåëüГ*Г®, ', u.Nick_name, '. ÏðèäóìГ*éòå ГЇГЁГ*-êîä äëÿ âõîäГ* Гў ñèñòåìó.');  readln(u.Pass);  write('Г‚Г*Гё ГЇГ*ðîëü: ', u.Pass, ' . ÓêГ*æèòå ãðóïïó ïîëüçîâГ*òåëåé, ГЄ êîòîðîé Âû ГЎГ» õîòåëè áûòü ïðè÷èñëåГ*Г»');  readln(u.Group);  write('ÑïГ*Г±ГЁГЎГ®, ïðîöåññ ðåãèñòðГ*öèè îêîГ*Г·ГҐГ*. Г‚Г*Гё ïñåâäîГ*ГЁГ¬: ', u.Nickname, '; Г‚Г*Гё ГЇГЁГ*-êîä: ', u.Pass, '; Г‚Г*ГёГ* ãðóïïГ*: ', u.Group); end.Лог ошибки на третью строку: ожидалось равенство "=" Не совсем понимаю, в чём именно ошибка. Всё делал по канонам, так сказать. На несоответствие кодировки в основной части кода не обращайте внимания, она не столь важна. Очень надеюсь на вашу помощь!

  1. Ошибка в программе "встречено '.', а ожидалось ';' (последняя строка). Программа вычисляет методом трапеции сразу четыре интеграла.

  1. Работа с одним типизированным файлом. Создать файл и записать в него степени числа 3. Вывести на экран все компоненты числа с четным номером

  1. Добавить меню выбора режима шифрование, расшифровка. Проверку цифр ( если отрицательное число-ошибка).И если можно еще комментарии к программе

  1. Разработать программу вывода названия дней недели (понедельник вторник и тд.) Если он задан целым числом от 1 до 7

  1. Pascal1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 type   PTClient = ^TClient;   TClient = object;       constructor create(value: integer);     function get_id: integer;     private     ID: integer;   end;   constructor TClient.create(value: integer); begin   ID := value; end; function TClient.get_id: integer; begin   get_id := ID; end;Выдает Ошибка:Ожидался идентификатор вот в этом месте: constructor create(тут value: integer); function get_id: integer;