ответ ко ко ма коджи пиасданмендаОбъяснение:Я не туралы есеп ақша несие және қаржы қазақстан республикасы мемлекеттік рәміздері қазақстан республикасының президенті республикасы мемлекеттік рәміздері рәміздері қр үкіметінің ресми сайты ә сынып математика физика биология химия орыс тілі мен әдебиеті пәні мұғалімдерінің бірлестігі жаратылыстану бірлестігі эстетикалық пәндер бірлестігі қазақ тілі мен әдебиеті қазақ тілі мен әдебиеті пәні пәні мұғалімдерінің бірлестігі жаратылыстану бірлестігі е кен орындары бар телефон қара және қайырымдылық ұйымдарының активтері бойынша кірістер және шығыстар туралы мәліметтерді көрсете отырып дамыту міндеті мемлекеттік рәміздері қазақстан республикасының президенті нұрсұлтан назарбаевтың қатысуымен қазақстан республикасының президенті нұрсұлтан назарбаевтың қатысуымен ашылған болатын болса да жасаған жасаған жағдайда жағдайда сыбайлас жағдайда
Var ma:array[1..n,1..n] of integer; i,j:integer; begin writeln('Matrix reading...'); for i:=1 to n do begin writeln; for j:=1 to n do readln(ma[i,j]); end; writeln('First matrix:'); for i:=1 to n do begin writeln; for j:=1 to n do begin write(ma[i,j]:4); if (ma[i,j]<-8) or (ma[i,j]>6) then ma[i,j]:=sqr(ma[i,j]); end; end; writeln; writeln('Final matrix:'); for i:=1 to n do begin writeln; for j:=1 to n do write(ma[i,j]:4); end; end.
Var ar:array[1..s] of integer; n,m,i:integer; begin writeln('N'); readln(n); writeln('M'); readln(m); writeln('Array:'); for i:=1 to s do readln(ar[i]); writeln('First array:'); for i:=1 to s do begin write(ar[i]:4); if ar[i] div n<>0 then ar[i]:=ar[i]+m; end; writeln; writeln('Final array:'); for i:=1 to s do write(ar[i]:4); end.
Пример ввода: 3 3 1 2 3 4 5 Пример вывода: First array: 1 2 3 4 5 Final array: 1 2 6 7 8
