BelyaevNadezhda223
?>

Как записать эти формулы в эксель? ​

Информатика

Ответы

Михайловна-Гусева350

Program Exp_1;

Var

  a:array[1..5] of integer;

  i:integer;

Begin

    for i:=1 to 5 do

    Begin

     write('Vvedite ',i,'-yi element massiva ');

     Readln(a[i]);

    End;

Write('Ishodny massiv: ');

for i:=1 to 5 do

 write(a[i],' ');

writeln;

writeln('Poluchenny massiv: ');

for i:=1 to 5 do

 write(a[i]+5,' ');

 Readln;

End.

Program Exp_2;

Var

  a:array[1..10] of integer;

  i:integer;

Begin

    for i:=1 to 10 do

    Begin

     write('Vvedite ',i,'-yi element massiva ');

     Readln(a[i]);

    End;

Write('Ishodny massiv: ');

for i:=1 to 10 do

 write(a[i],' ');

writeln;

writeln('Poluchenny massiv: ');

for i:=1 to 5 do

 write(a[i]+5,' ');

for i:=6 to 10 do

 write(a[i]*5,' ');

 Readln;

End.

Program Exp_3;

Const

n=10;

Var

  a:array[1..n] of integer;

  i:integer;

Begin

    for i:=1 to n do

    begin

    a[i]:=5;

    write(a[i]:3);

    read;

    end;

End.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Как записать эти формулы в эксель? ​
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

zoomagazinkotmatroskin
Inozemtseva Korolev1271
teregorka1977205
fafina12586
vkurnosov20008
геннадиевна2001
Titeeva-Vladimirovich283
galkavik
Mydariamiro
Валерьевна1601
Platon
dionissia2
olgolegovnak
Роман_Гречина
snopovajulia