напишите комментарии к каждой строке кода. 1) program z3; const n = 25; var arr1, arr2: array[1..n] of integer; i, d: integer; begin d := n; for i := 1 to d do begin arr1[i] := random(20) - 10; write(arr1[i], ' '); end; for i := d downto 1 do if (arr1[i] >0) then break; dec(d); for i := i to d do arr1[i] := arr1[i + 1]; writeln; for i := 1 to d do begin arr2[i] := arr1[i]; write(arr2[i], ' '); end; end. 2) program z4; begin var y := ArrRandom(40, -99, 99); y.Println; var nmax := y.IndexMax + 1; y.Transform((v, i) -> i <35 ? v : v * nmax); y.Print end.

PascalВыделить код

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

uses crt;

const n=10;

var i,j,k:integer; max,min:integer; S,buf:real; f:text;  

const x:array[1..n] of integer=(5,-11,7,19,-16,3,-8,4,10,2);

begin  

assign(f,'array.pas');

rewrite (f);

writeln (f);  

writeln('массив 5,-11,7,19,-16,3,-8,4,10,2');

min:=0;

max:=0;

writeln;

writeln;

 For i:=1 to 9 do  

 if x[i] mod 2 = -1 then  if x[i]<x[i+1] then begin

                                              min:=min+x[i];  

                                              write ('минимальное нечетное x[',i,']='  ,x[i]);

                                              end;

 writeln; {сумма элементов массива между минимальным нечетным и максимальным четным}

 For i:=1 to 9 do                                              

 if x[i] mod 2 = 0  then  if x[i]>x[i+1] then begin  

                                              max:=max+x[i];  

                                              write ('максимальное четное x[',i,']='  ,x[i]);

                                              end;

                                              writeln;

                                              writeln;

  S:=0;                                            

  For i:=2 to 9 do

  begin

  S:=S+x[i];    

  writeln('сумма элементов между min нечетным и max четным = ',S:4:0);    

  end;

   

  writeln;

  writeln;

   

  {поменять местами максимальное четное с минимальным нечетным}

   

 

end.

могу ответить только на первый т.к. не очень сильно знаю c++

#include <bits/stdc++.h>

 

using namespace std;

 

int main()

{

   ifstream fin("c:\input.txt");

   string s,sr;

   int j;

   bool f=true;

   while(getline(fin,s))

   {

       for(int i=0;i<s.length();++i)

       {

           

           if((s[i]>='a' && s[i]<='z') ||

              (s[i]>='A' && s[i]<='Z'))

           {

               sr=sr+s[i];

               f=true;

           }

       }

   }

   cout<<sr;

}