//Pascal ABC.NET Версия 2.2 Сборка 790 var ma:array[1..10,1..10] of integer; ar:array[1..10] of integer; i,j,s:integer; begin; randomize; writeln('Matrix:'); for i:=1 to 10 do begin; writeln; for j:=1 to 10 do begin; ma[i,j]:=random(-10,10); write(ma[i,j]:5); if ma[i,j]<0 then ar[i]+=ma[i,j]; end; end; writeln; writeln('Final array:'); for i:=1 to 10 do writeln(ar[i]); end.
Язык программирования не указан, потому - самый простой вариант - программа на паскале. Даже на паскале задачу можно решать различными с массивом, без массива, со строками, без строк. Опять-таки, самый простой вариант - со строками. var s,p:string; n,i:integer; begin writeln('Введите символы:'); readln(s); n:=pos('.',s)-1; writeln('n = ',n); p:=''; for i:=1 to n do p:=s[i]+p; writeln('а)'); writeln(p); p:=''; if n mod 2 = 0 then i:=2 else i:=1; while i<=n do begin p:=p+s[i]; i:=i+2; end; writeln('б)'); writeln(p); end.
Пример: Введите символы:Даны символы s1, s2, ... Известно, что символ s1 отличен от точки n = 21 а) ,2s ,1s ыловмис ынаД б) Дн ивл 1 2
