Задан линейный массив .преобразовать его элементы по следующему правилу : четные положительные элементы заменить на 1 , а нечетные отрицательные на -1 .остальные оставить без изменения
Program asd; Const n=10; var A:array[1..n] of integer; i:integer; BEGIN Randomize; For i:=1 to n do begin A[i]:=1+Random(10)-4; Write(A[i],' '); end; Writeln; For i:=1 to n do begin If (A[i] mod 2=0) and (A[i]>0) then begin A[i]:=1; Write(A[i],' '); end else If (A[i] mod 3=0) and (A[i]<0) then begin A[i]:=-1; Write(A[i],' '); end else Write(A[i],' '); end; END.
program test; var n:string;i,c,sh:integer; begin readln(n); for i:=1 to length(n) do begin if (n[i]='б') or (n[i]='Б') then n[i]:='п';if (n[i]='п') or (n[i]='П') then n[i]:='б'; if (n[i]='в') or (n[i]='Б') then n[i]:='ф';if (n[i]='ф') or (n[i]='Ф') then n[i]:='в'; if (n[i]='г') or (n[i]='Б') then n[i]:='к';if (n[i]='к') or (n[i]='К') then n[i]:='г'; if (n[i]='д') or (n[i]='Б') then n[i]:='т';if (n[i]='т') or (n[i]='Т') then n[i]:='д'; if (n[i]='ж') or (n[i]='Б') then n[i]:='ш';if (n[i]='ш') or (n[i]='Ш') then n[i]:='ж'; if (n[i]='з') or (n[i]='Б') then n[i]:='с';if (n[i]='с') or (n[i]='С') then n[i]:='з'; end; writeln('1) ',n); for i:=1 to length(n) do begin if (n[i] = 'С') or (n[i] = 'с') then begin inc(c); n[i]:='ш'; end; if (n[i] = 'Ш') or (n[i] = 'ш') then inc(sh); end; writeln('2) ',n); writeln('В предложении буква "Ш" встречаеться:',sh); writeln('В предложении буква "C" встречаеться:',c); end.
Понятия чаще всего определяются через ближайший род и видовое отличие: указывается группа родственных понятий, к которому относится определяемое понятие, и его отличие от других понятий этой группы.
Примеры: 1. Сила тока — скалярная физическая величина, равная отношению количества заряда, протекшего через поперечное сечение проводника за некоторое время, к продолжительности этого промежутка времени. (Ближайший род — скалярные физические величины, отличие — равна Δq/Δt, все остальные скалярные физические величины этому не равны). 2. Паспорт гражданина Российской Федерации — основной документ, удостоверяющий личность гражданина Российской Федерации на территории Российской Федерации. (Остальные основные документы не удостовряют)
Const n=10;
var A:array[1..n] of integer;
i:integer;
BEGIN
Randomize;
For i:=1 to n do
begin
A[i]:=1+Random(10)-4;
Write(A[i],' ');
end;
Writeln;
For i:=1 to n do
begin
If (A[i] mod 2=0) and (A[i]>0) then
begin
A[i]:=1;
Write(A[i],' ');
end
else
If (A[i] mod 3=0) and (A[i]<0) then
begin
A[i]:=-1;
Write(A[i],' ');
end
else
Write(A[i],' ');
end;
END.