Паскаль, массив

[Дмитрий Дедов]

Паскаль, массив

Константой задан комплект деталей заготовительного цеха (K). Задан массив (размерность - 10) записей следующей структуры
- Наименование детали
- Номер детали

 

[Vladimir_S]

Не, ну это уже полный бред! Это флеш-моб такой?
http://www.tehnari.ru/f43/t250870/

 

[Дмитрий Дедов]

Попытался написать программу, но ответ в виде матрицы не выходит.
В чем проблема?

Program Var11;
Var
No,Sr,OB,O,B,P, K, Count: array [1..10] of integer;
i, n: byte;
Begin
Begin;
Write ('введите размерность массивов:');
Readln;
For i:=1 to n do
Readln (P);
For i:=1 to n do
Readln (K);
For i:=1 to n do
Count:=P*K;
For i:=1 to n do
Write (Count,' ');
end;
begin;
Write ('введите размерность массивов:');
Readln;
For i:=1 to n do
Readln (O);
For i:=1 to n do
Readln (B);
For i:=1 to n do
OB:=O*B;
For i:=1 to n do
Write (OB,' ');
end;
begin;
Write ('введите размерность массивов:');
Readln;
For i:=1 to n do
Readln (P);
For i:=1 to n do
Readln (No);
For i:=1 to n do
Sr:= P*No;
For i:=1 to n do
Write (Sr,' ');
end;

end.

 

[Vladimir_S]

В чем проблема?

Да много в чем...
Прежде всего в том, что поздновато Вы решили начать осваивать азы программирования. С сожалением вынужден констатировать, что Ваша попытка написать программу привела к появления набора каких-то невразумительных непоняток. Что-то откуда-то явно бездумно перекатано...
1. В условии сказано "массив записей". Где у Вас вообще записи? Похоже, Вы о таких структурах и не слыхали.
2. Вот это: "begin;" есть полная бессмыслица. Такого не бывает.
3. В чем вообще смысл трёхкратного повторения по сути одного блока?
4. Зачем нужно вводить каждый параметр отдельным циклом, да еще "вслепую", т.е. без текстового пояснения, что именно мы вводим?
И т.д., и т.п.

В общем, пока могу порекомендовать изучить вот эту тему, где только что была разобрана аналогичная задача, и попробовать создать что-то "по образу и подобию".