Недавнее содержимое от Uliana05

Помогите написать блок-схему для курсовой Вот код программы. Program prod3numbers; uses crt; Var massiv: array[1..100] of real; prod,max1,max2,max3: real; i,j,k,mas_len: integer; Begin clrscr; Write ('Vvedit dovjinu masyvu <= 100 :'); readln (mas_len); for i:=1 to...

Free Pascal

Помогите, пожалуйста, написать программку Вот условие: Создать массив из n строк. 1) Найти в каждой строчке длинное слово. Слова выделены пробелами разного количества. 2) Найти в массиве слова, содержащие указанный символ.

Спасибо вам.:tehnari_ru_203:

11Angelav, пожалуйста, сделайте блок-схему Const Size=10; Var A:Array[1..Size+1,0..Size] of Integer; i,j,n,m,k:Byte; Inp,Outp:Text; Begin Assign(Inp,'Input.txt'); Reset(Inp); Readln(Inp,n,m); for i:=1 to n do for j:=1 to m do A[i,j]:=-1; for i:=1 to n do A[i,0]:=0; for j:=0 to m...

Спасибо огромное вам. Ок, оброщусь к ней.

вот документ, и в нём всё есть.

Вот, посмотрите, здесь на 37 странице начало и дальше всё написано. Нужно зделать у Free Pascal.

Вот задача: КОРОЛЬ В левом нижнем углу шахматной доски mxn стоит одинокий король. Некоторые ячейки доски запрещены для посещения королем. Король имеет возможность ходить или вправо или вверх (или вправо-вверх) на одну ячейку. Найти количество путей короля в правый верхний угол доски.

ну так исправте ошибки..пожалуйста...очень прошу..

Помогите написать блок-схему для курсовой Добрый день, прошу помочь скоро сдача курсовой, а я никак не могу осилить блок схему к этой программе... Помогите пожалуйста! Program King; Const Size=10; Var A:Array[1..Size+1,0..Size] of Integer; i,j,n,m:Byte; Begin Assign(Input...