Как осуществляется ввод одномерных массивов в паскале? пример. ))

285

347

Посмотреть ответы 2

Ответы на вопрос:

Kozlovanika71

Информатика

4,5(21 оценок)

var

n,i: integer;

mas: array[1..100] of integer;

begin

readln(n);

for i: =1 to n do

read(mas[i]);

writeln('вывод');

for i: =1 to n do

write(mas[i], ' ');

end.

pikuss

Информатика

4,4(16 оценок)

Var s,g,k: integer; begin writeln('введите сумму (в копейках): '); readln(s); g: =s div 100; k: =s mod 100; write(g,' грн. '); if k=0 then writeln('00 коп.') else if k< 10 then writeln('0',k,' коп') else writeln(k,' коп.'); end. пример: введите сумму (в копейках): 5205 52 грн. 05 коп