Program Program1; Var a:array [1..10] of integer; i:integer; begin for i:=1 to 10 do begin write('Введите ',i,' элемент массива: '); readln(a[i]); end; for i:=1 to 10 do writeln('a[',i,']=',a[i]); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
