Главное меню

Вход на сайт

Кто на сайте?

Сейчас 156 гостей и ни одного зарегистрированного пользователя на сайте

Элементы массива Т формируются по правилу: Т(к)=15к-12. Сформировать массив А из четных элементов массива Т, а массив В – из нечетных (к=20).

Решение
     
     const
     k=20;
     var T,A,B:array [1..K] of integer;
         i,AIndex,BIndex:integer;
     begin
     writeln;
     writeln;
     for i:=1 to K do
     T[i]:=15*i-12;
     AIndex:=0;
     BIndex:=0;
     for i:=1 to K do
     if T[i] mod 2=0 then
        begin
        AIndex:=AIndex+1;
        A[AIndex]:=T[i];
        end
        else
        begin
        BIndex:=BIndex+1;
        B[BIndex]:=T[i];
        end;
     writeln('Massiv A:');
     for i:=1 to AIndex do
     write(A[i],', ');
     writeln;
     writeln('Massiv B:');
     for i:=1 to BIndex do
     write(B[i],', ');
     readln;
     end.

У Вас недостаточно прав для добавления комментариев.
Вам необходимо зарегистрироваться на сайте