Составить программу на языке паскаль. составить блок схему. дан массив вещественных чисел. ко всем отрицательным элементам прибавить элемент с номером , к остальным - элемент с номером .
Const m=10; var i,s,n,m1,m2:integer; a:array[1..m]of integer; begin write('Исходный массив: '); for i:=1 to m do begin a[i]:=random(-5,10); write(a[i],' '); end; writeln; repeat write('Введите m1 и m2: '); readln(m1,m2); until (m1>0) and (m2>0) and (m1<=m) and (m2<=m); n:=a[m1]; s:=a[m2]; write('Измененный массив: '); for i:=1 to m do begin if a[i]<0 then a[i]:=a[i]+n else a[i]:=a[i]+s; write(a[i],' '); end; end.
var a : array [1..4] of char; i, k, l, m, N : byte; begin a[1] := 'Л'; a[2] := 'Е'; a[3] := 'Т'; a[4] := 'О'; for i := 1 to 3 do begin for k := 1 to 4 do begin for l := 1 to 4 do begin for m := 1 to 4 do begin if i <> 2 then begin write(a[i], a[k], a[l], a[m], ' ,'); N += 1; end; end; end; end; end; writeln('Всего: ', N) end.
var a : array [1..4] of char; i, k, l, m, N : byte; begin a[1] := 'Л'; a[2] := 'Е'; a[3] := 'Т'; a[4] := 'О'; for i := 1 to 3 do begin for k := 1 to 4 do begin for l := 1 to 4 do begin for m := 1 to 4 do begin if i <> 2 then begin write(a[i], a[k], a[l], a[m], ' ,'); N += 1; end; end; end; end; end; writeln('Всего: ', N) end.
m=10;
var
i,s,n,m1,m2:integer;
a:array[1..m]of integer;
begin
write('Исходный массив: ');
for i:=1 to m do
begin
a[i]:=random(-5,10);
write(a[i],' ');
end;
writeln;
repeat
write('Введите m1 и m2: ');
readln(m1,m2);
until (m1>0) and (m2>0) and (m1<=m) and (m2<=m);
n:=a[m1];
s:=a[m2];
write('Измененный массив: ');
for i:=1 to m do
begin
if a[i]<0 then a[i]:=a[i]+n
else a[i]:=a[i]+s;
write(a[i],' ');
end;
end.