Дан массив A размера N и целое число K(1
Категория: Delphi/Pascal
2013-01-03 23:23:10
code: #pascal
program Array11; const n = 10; var i,k:integer; f: array [1..n] of integer; begin readln(k); for i:=1 to n do readln(f[i]); for i:=1 to (n div k) do write(f[i*k]:3); writeln; readln; end.
автор: lamed
Поделиться: