задача!

[hon]

Так, в начале должен быть указан язык! (ну его уже указали)
Наработки тоже должны быть предоставлены в самом начале! (уже предоставили)
Ctrl+C Ctrl+V пользоваться умеешь? Ты сколько доростоящего дискового пространства на изображение (целых 304 КБ), трафика своего, трафика других пользователей, сил на фото потратила вместо того, чтобы скопировать и вставить как текст. А потом просто картинку (скрин) вставить в формате png двухцветном. Да еще на этом фото курсор закрывает часть изображения!

А код ты оформлять умеешь по правилам?
Правила форума читала? Правила раздела читала?

Сообщение от Stilet

А что написано в методичках? Что давалось в лекциях?
Как на паскале записать знаешь?

Поддерживаю!
Мне очень кажется вашу тему закроют!

Если нужно перевести с Паскаля на Делфи, то что надо сделать?
Для начал определится, это будет консольное, безоконное, оконное приложение или что.
А потом (ну т.к. Делфи и Паскаль родственники) просто скопировать код.
Если консоль, то это понятно как в Паскале между begin и end.
Если безоконное, как в предыдущем способе.
А если оконное, то в какой-то процедуре (например клик на кнопку).

[Stilet]

Вот Делфи:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type A=array [1..100,1..100] of integer;
var i,j,N,S:integer;
MAS:A;
begin
write ('vvedi N=');
readln(N);
for i:=1 to n do for j:=1 to n do if i=j then a[i,j]:=i else a[i,j]:=0;
writeln('obrab massiv');
for i:=1 to N do write (MAS[I,j]:4);
readln;
end.

[tanya046]

спасибо и на этом!!!