Регистрация
owl9masha
17.04.2023 11:08
Информатика
Есть ответ 👍

10. Написать программу вычисления функции

(Надо на Pascal)

272
382
Посмотреть ответы 1

Ответы на вопрос:

саша4278
саша4278
4,7(61 оценок)
1.  pascalabc.net 3.3 const n=5; begin   writeln('до: ');   var a: =matrrandom(n,n,-10,10); a.println(5);   var b: =a.elementswithindexes.select(k-> k[2]> k[1]? 0: k[0]).toarray;   writeln('после: ');   a: =matrgen(n,n,(i,j)-> b[i*n+j]); a.println(5); end. пример: до:     -7    3    8    -6    -5     -2    6    -1    -6    -8     5    7    2  -10    0     9    3    -8    5    -6     -4    1    1    0  -10 после:     -7    0    0    0    0     -2    6    0    0    0     5    7    2    0    0     9    3    -8    5    0     -4    1    1    0  -10 2. const n=5; var  a: array[1..n,1..n] of integer; i,j: integer; begin randomize; writeln('исходный массив: '); for i: =1 to n do   begin   for j: =1 to n do   begin     a[i,j]: =random(100);     write(a[i,j]: 4);   end;   writeln;   end; for i: =1 to n do   for j: =i+1 to n do a[i,j]: =0; writeln('полученный массив: '); for i: =1 to n do   begin   for j: =1 to n do write(a[i,j]: 4);   writeln;   end; end. пример: исходный массив:   62  25  21  54  22   71  39  41  49  63   26  93  50  79  35   81  45  40  99  45   46  87  63  36  15 полученный массив:   62    0    0    0    0   71  39    0    0    0   26  93  50    0    0   81  45  40  99    0   46  87  63  36  15

Популярно: Информатика