1)дан массив из n элементов. определить сумму тех, которые четны и положительны. 2)дан массив из n элементов. в нем четные числа заменить на 0, нечетные на -1, вывести на экран монитора содержимое массива до обработки и после обработки.
Program N; Var a,n,i,s: integer; Begin Writeln('n=');Readln(n); s:=0; For i:=1 to n do Begin a[i]:=random(100); write(a:4); end; writeln; writeln('izmenenni massiv'); for i:=1 to n do begin If (a mod 2)=0 then a:=0 else a:=1; write(a:4); end; readln; End.
Var A,B,C:integer; Begin C:=365; Read(A,B); if A>1 then C:=C-31; if A=1 then C:=C-B; if A>2 then C:=C-28; if A=2 then C:=C-B; if A>3 then C:=C-31; if A=3 then C:=C-B; if A>4 then C:=C-30; if A=4 then C:=C-B; if A>5 then C:=C-31; if A=5 then C:=C-B; if A>6 then C:=C-30; if A=6 then C:=C-B; if A>7 then C:=C-31; if A=7 then C:=C-B; if A>8 then C:=C-31; if A=8 then C:=C-B; if A>9 then C:=C-30; if A=9 then C:=C-B; if A>10 then C:=C-31; if A=10 then C:=C-B; if A>11 then C:=C-30; if A=11 then C:=C-B; if A>12 then C:=C-31; if A=12 then C:=C-B; Write(C); End.
var a, d, count, i: integer; function CountDay(a: integer): integer; begin if (a >= 1) then countday := 31; if (a >= 2) then countday := 28; if (a >= 3) then countday := 31; if (a >= 4) then countday := 30; if (a >= 5) then countday := 31; if (a >= 6) then countday := 30; if (a >= 7) then countday := 31; if (a >= 8) then countday := 31; if (a >= 9) then countday := 30; if (a >= 10) then countday := 31; if (a >= 11) then countday := 30; if (a >= 12) then countday := 31; end; begin count := 0; write('Введите месяц: '); readln(a); write('Введите день: '); readln(d); if (a <= 0)or(a > 12)or(d <= 0)or(d > countday(a)) then writeln('Ошшибка в данных!') else begin for i:=a to 12 do count := count + countday(i); count := count - d; writeln('До нового года осталось ', count, ' дней.'); end; end.
Var a,n,i,s: integer;
Begin Writeln('n=');Readln(n);
s:=0;
For i:=1 to n do Begin a[i]:=random(100);
write(a:4); end; writeln; writeln('izmenenni massiv'); for i:=1 to n do begin If (a mod 2)=0 then a:=0 else a:=1; write(a:4);
end;
readln;
End.