Дан массив A размера N и целое число K(1

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

Поделиться:

Похожие статьи: